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FORWARD 


The Phillips Laboratory, Geophysics Directorate Optical Environment Division (PL/GPO) 
has conducted a number of field experiments designed to support the design of future space 
based surveillance systems. The objective of future DoD systems is to be able to collect 
information on sources of interest such as rocket launches, tracking, battle field movements, 
satellite deployments and a host of intelligence related activities. The radiation from the earth 
and its atmosphere competes with the signals generated by desired targets and acts as a source 
of clutter. Consequently, the ultimate goal of the field experiments and related theoretical 
efforts is to define the radiative nature of the earth and its atmosphere (usually from a space 
vantage point) in order to better compensate for the competing radiations the earth backgrounds 
will present to a system. The improvements in satellite capabilities and sensor improvements 
has made the missions of future systems ever increasing in complexity with the demand that 
weaker targets be observed and greater detail and resolution be obtained. The PL/GPO 
experiments and theoretical efforts are intended to provide critical information on the 
fundamental radiation processes emanating from the earths surface and within the atmosphere. 
This requires that background measurements be performed at different global locations, at 
different times of day and night and throughout the four seasons to provide a relevant data base 
and validate the new theoretical models. Three aspects of the radiation properties are of 
paramount importance. They are the spectral, spatial and temporal aspects of the hard earth and 
the atmosphere to altitudes of 300 km or so. Fortunately, the improved technology has ^so 
increased the ability of experimental scientists to measure the nature of the background radiation 
and keep pace with the system requirements. However, the advanced instrumentation usually 
requires much more sophisticated analysis to recover the essential information. The work 
presented in this final report is in support of the efforts at the Phillips Lab to increase knowledge 
of the earth and its atmosphere in terms of its radiative behavior. 

The report is divided into four sections, each representing different areas of activity. The 
first section deals with the problem of attempting to improve the resolution of already collected 
data from the PL/GPO CIRRIS-IA shuttle measurements. CIRRIS-IA interferometer data of 
the nadir viewing earth was taken at about ten to one hundred times poorer spatial resolution 
than is now required. A theoretical development is presented on the techniques of improving 
the CIRRIS-IA resolution post flight. 

Section Two provides an assessment of the ultraviolet backgrounds with regard to the 
basic knowledge available to define the earth background at shorter wavelengths. The UV 
advantage, so far as systems utilization is concerned, is tied to the high efficiency of photon 
counting devices and the short wavelength advantage for diffraction limited systems namely, a 
reduction of three or more in space telescope apertures. In this effort, the expert assistance of 
Dr. D.B. Green was acquired under Sub-contract F19628-91-C-0042-0001 with Physical 
Sciences Inc. of Andover, MA. 

Section Three reports the results obtained in the analysis of the field data acquired by 
PL/GPO under the EXCEDE III experiment. In this work the interferometer spectra obtained 
by an electron irradiated portion of the atmosphere was analyzed. This particular experiment 




relates to response of the atmosphere to electron bombardment with the culmination of infrared 
radiation. 

The nature of the EXCEDE III experiment was such that fundamental processes which 
govern the infrared characteristics and intensity of radiation can be obtained through analysis of 
the spectral data. Many first time observations and results have been obtained. It is particularly 
satisfying that the detailed spectral information on a long-sought atmospheric infrared radiator 
i.e., NO^ has finally been obtained. The individual vibration-rotation lines of NO'*^(v) have been 
measured, kinetics for its production determined, energy efficiency on an input/out basis 
determined and detailed reaction rates derived. 

Finally in Section four, select high resolution spectra which were recovered by Fourier 
Transformation of interferograms recorded by the EXCEDE III interferometer-spectrometer are 
presented with the highest achievable resolution at the best signal-to-noise attainable. The 
spectra which were generated illustrate the emission characteristics, absolute intensities of 
numerous, identifiable, atmospheric radiating species and provide a general representation of the 
radiation background which was present under the conditions of the EXCEDE III electron 
irradiation. The spectra are of utility in predicting the infrared backgrounds which would be 
present in a high altitude nuclear detonation. The same information is also of use in 
understanding the mechanisms responsible for radiation produced in the aurora. 

The work presented in this final report is all unclassified. Other results obtained under 
this contract in analysis of measurements by the PL/GPO FISTA aircraft have utilized the 
Scientific Report mechanism to present the analysis performed and may be obtained with the 
proper authorization through PL/GPO. 

All special computer software developed during the course of the investigations under this 
contract have been made available to PL/GPO in convenient digital form. The Appendices at 
the end of this final report also provides a hard copy of the software programs which were 
developed. 
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PART ONE 


TREATMENT OF INTERFEROGRAMS OF FLUCTUATING SPECTRA AND 

RESOLUTION ENHANCEMENT 


INTRODUCTION 

Fourier spectroscopy is a technique where a Michelson-type two-beam interferometer is 
used to obtain the autocorrelation function of the electromagnetic field entering the 
interferometer. The output of the interferometer is detected by a square law detector and 
recorded as a function of the optical path difference between the two interfering beams in the 
interferometer. The optical path difference is varied by displacing one or both of the mirrors 
of the interferometer. This displacement can be slow or rapid and either stepwise or continuous. 
The recorded output modulation is called an interferogram, F(x) (with x being the optical path 
difference, OPD in the interferometer) and is the Fourier transform of the power spectral density 
B(<r) of the incident radiation; <t being the wavenumber cm ’ of the radiation. 

Most measurements in Fourier spectroscopy are made with the assumption that the 
spectral distribution of the source is constant throughout the duration of a scan which may be 
as long as several hours or as short as l/20th of a second. The source radiance, the resolution 
da required, and the desired signal to noise usually determine the scan time, i.e., the time 
required to obtain the full interferogram. 

However, there are many instances in field measurements where a scan time is imposed 
by other considerations. The vehicle on which the interferometer spectrometer is borne may be 
traveling at high speed and the spectrometer field of view (FOV) accepting a temporally varying 
signal; i.e., like in the case of earthlimb measurements from rocket, shuttle or satellite. Such 
a case recently occurred on the CIRRIS-IA measurements from the shuttle Discovery. 

EXTRACTING VALID SPECTRA 

An attempt will be made to develop an algorithm which will allow extracting valid 
spectral data from a interferogram obtained while the source spectral distribution B(a) varied 
with time. There are two cases to be considered: the achromatic and the chromatic time- 
varying B((t). The former type will be considered first. 

ACHROMATIC SPECTRAL VARIATIONS 

Achromatic variation of the spectral distribution means that all the spectral elements vary 
in strength, or in intensity, at the same rate and direction. Source variations which are slow. 


1 



relative to the scan time, should not appreciably distort the spectral distribution obtained by 
transforming the interferogram if the source fluctuations can somehow be taken into account. 
One approach to accomplish this is to decimate the interferogram into segments within which 
the spectrum may be assumed not to vary. The average value of the interferogram within each 
segment yields a measure of the total energy of the spectrum during that segment. In essence, 
the assumption is that one-half the integral of the spectrum during each segment of the 
interferogram is represented by the average value of the interferogram within each segment. 
Normalizing the separate and individual segments’ average values to the maximum average 
obtained during a scan will yield a multiplier which can then be used to massage the 
interferogram. For example, if one segment has an average value of half the maximum (this 
may be an extreme case) then the corresponding segment of the interferogram should have its 
amplitudes (- swings around the average) doubled. Each segment is adjusted according to the 
plot of average value as a function of optical path difference and a corrected interferogram 
generated. Fourier transforming this latter interferogram should yield valid spectral data 
providing the assumption slowly varying for the spectrum is valid and the segments are chosen 
to be of appropriate lengths. 

CHROMATIC SPECTRAL VARIATIONS 

Chromatic variations in spectral distribution means that the individual spectral elements 
are not varying in unison but have differing rates of fluctuation. This can occur very easily 
during an earthlimb scan in elevation by the interferometer which takes place during one 
interferometer scan. This comes about because different molecular species are emitting from 
different atmospheric tangent heights. We will describe a procedure amenable to interferogram 
treatment for such measurement conditions and expected to yield valid spectral distributions. 

Again, as in the achromatic case, we must assume something about the spectral 
variations. We assume it is possible to segment the interferogram into lengths L in OPD such 
that within each segment the spectral distribution is invariant both temporally and spectrally. 
We can imagine a scenario which requires that these segments be short; however, we still 
assume that each segment is very large compared to the interferogram sampling interval. The 
spectral distribution B (<j) is assumed to extend to E cm * and the corresponding sampling 
interval in the interferogram domain must be less than 8x = (1/2E); this leads to the condition 
that L > > X. The sampling interval in the spectral domain is given by 1/(2X) where X is the 
maximum value of the OPD. 

The length L of each segment is assumed the same and available for Fourier 
transformation. Each segment is transformed to obtain what is assumed to be a valid B (o) 
persisting throughout the corresponding segment. It should be noted that for a given optical path 
difference d, the interferometer transmission function in the spectral domain, is a cosine square 
function given by 


Cos^inad) = ^ Cos{2nad) . 


( 1 ) 
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Consequently, with the condition of large L or long segment, we are ensured that each segment 
gets to taste all the spectral elements a large number of times, which somehow lends credence 
to the segmenting process with the various spectral distributions having been obtained, it should 
now be possible to track the behavior in time of each spectral elements. 

We propose a simulation by synthesizing an interferogram from given spectral 
distributions. That is, take a dozen or so B (ff)’s, B,((r) to B, 2 (<t), each one differing appreciably 
from the others. These distributions are then used to generate the separate segments of an 
interferogram to be joined together (avoiding discontinuities) to form the test interferogram. 
Actually, it probably would be easier to generate, say 12 interferograms and combine different 
segments into a test interferogram, instead of trying to keep track of the segments corresponding 
to the different spectral distributions. Once the test interferogram is generated it can be 
segmented and transformed; essentially just reversing the process of synthesizing. It also should 
be determined what effect varying the length of the segments has on the spectral distributions 
and how the distributions differ from that obtained from the whole test interferogram. 

We would then take an actual interferogram, segment it as described above and obtain 
the corresponding spectra as a function of segment of the interferogram. The next step is to 
synthesize an interferogram from the varying spectral distributions and compare it with the actual 
interferogram. It is expected that by so doing it will be possible to verify whether or not the 
underlying assumptions are valid. Namely, are the segments too long or the time variations of 
the spectral more rapid than anticipated. An iteration can be done to improve the synthesized 
interferogram until a satisfactory fit to the actual interferogram is obtained. This forward and 
backward transformation should give a comfortable feeling about the validity of the results. 

Finally, it would be possible to take existing interferograms from field experiments and 
attempt to extract valid spectral distributions even if the latter varied during the time of an 
interferometer scan. 

SPECTRAL VARIATIONS 

The previous Section discussed techniques for obtaining valid spectral distributions for 
achromatic and chromatic spectral variations of B((r) which could occur during an interferometer 
scan. The techniques involved taking Fourier transforms and inverse transforms and performing 
iterations to arrive at a synthesized interferogram which was to be compared to an initial 
interferogram to judge its acceptability. An acceptable interferogram would confer confidence 
to the spectral distributions used in the interferogram synthesis. In this Section, we shall present 
an alternative approach, which involves convolution in the spectral domain, to arrive at the same 
results. It is imperative that we look at these so-called valid spectra. 

The output signal from a Fourier Transform Spectrometer (FTS) as a function of path 
difference x is given by 
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cos^irox 


(2) 


£ 

D{x) = jB{a)da 
0 

where D(x) is the detector signal, B((r) is the power spectral density, and E is the maximum 
frequency of the spectrum in cm ‘. ^ (2) can be expanded and written as 


£ 

D{x) = jB(a)da[^ + -|cos{2iiox) ] 
0 



Cos(2itax) da 


(3) 


We then define the interferogram function F(x) (called the interferogram) as 


£ 


F(x) = D(x} - jV(0) = Jj3(a) 


Cos (271 ax) da 


(4) 


The interferogram F(x) is the modulation of D(x) about the average value of the latter, i.e. the 
detector signal D(x) which contained a DC part and an AC part. The average value, or the DC 
part, gives a measure of the total power in the spectrum while the AC part yields its spectral 
structure. 

We let the maximum path difference for the interferogram be X and perform a cosine 
Fourier transform to obtain the spectral distribution; 


B(a) 


X 



cos (271 ox) dx 


(5) 
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With the same underlying assumptions and in the spirit introduced in the section, Extracting 
Valid Spectra, we shall decimate the interferogram in an attempt to obtain valid spectral 
distributions for achromatic or chromatic variations during an interferometer scan. This implies 
that during the change in path difference from 0 to Xj we have Bi((r) given by 


B^ia) 





0 


Cos{2iiax) dx 


S 


J Fix) 
-^1 


( 6 ) 


and so on for BjCa), BjCa), .... etc, with each B(a) being constant (during the corresponding 
interval). For the second segment, we have 


B^ia) » jF(x)e-^^^*’^dx (7) 


and we further make 0-*x, = ax = Xj - x, = Xj - Xj etc. In essence, we assume that the 
interferogram segment length L is short enough to be applicable to all the segments regardless 
of where they occur during the interferometer scan. It is also possible to vary L in accordance 
with a measurement scenario providing it can be established unambiguously how the field-of- 
view of the interferometer is changing during a scan; however, it does not appear that this 
approach would be worthwhile. 

In passing, it should be noted that we assume the interferogram is an even function as 
well as the spectral distributions. (Although in reality B(<t) extends from 0 to E cm ', in the 
process of Fourier transforming an even F(x) we obtain the mirror image of B(a) as well 
extending from 0 to -E cm '). It is because of the mathematical birth of the negative cm ' 
spectra that the interferogram must be sampled at an interval 6x less than 1/(2E). Actually for 
a spectrum extending from a, to aj cm ' the sampling theorem states that 


2 Ao 2(02 -oj ( 8 ) 


in order to prevent spectral aliasing. 

Let us consider one segment, say the third, and proceed to the extraction from it of a 
spectral distribution B 3 (ff) which is considered valid. We have, disregarding constants. 
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( 9 ) 


53 ( 0 ) = jF{x)e-^^^°^dx, 

X2 

which may be written as 

£ 3 ( 0 ) = Ja{x) F{x) (1®) 

— M 

where 

A{x) =0 for \xj\ < X < Ix^l 


= 1 otherwise 

Figure 1 illustrates the function A(x) which in essence selects the appropriate segment to be 
analyzed. 


A(x) 



-X3 - X2 0 X2 X3 X 


Figure 1. Graphic Representation of A(x). 
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It is fruitful to rewrite A(x) in terms of a convolution of a rect function R(x) with two delta 
functions; this is illustrated in Figure 11 below on a different scale. 

(Convolution) 

A(x) = R(x) * 6 [x ± (Xj + X3)/2 =A 3 (x) 



Figure 2. Illustration with the Use of Delta Functions. 
We can now rewrite Eq (10) as follows, 


53 ( 0 ) = J [R{x) (11) 

It should be noted that R(x) has a fixed width regardless of the interferogram segment but that 
A(x) consists of two delta functions spaced farther apart as the segment number increases. At 
this juncture it is instructive to make a few observations. Interferogram segmenting is clearly 
legitimate since 


J[A(x) + B (x] = Ja(x) e + Jb{x) . 


( 12 ) 


Furthermore, we may write the discrete Fourier transform in the following matri-type display. 


% 
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B{0) 


■B('-i-) 


J^{0) + Cos2jt 10 • + i 


• f (0) 






s 


B(C) .B(^) ♦f-(O) . 


In the above we have taken an interferogram sampling integral of 6x=l/(2E) and a spectral 
interval 5a = 1/(2X). The number of samples Ni of F(x) is X/[1/(2E)]=2EX. and the number 
N, of spectral samples (or elements) is E/[1/(2X)]=2EX. We have then Ni=2EX=N,; the same 
number of samples in both domains. It is seen from the above presentation of B(a) and F(x) that 
the usual Fourier analysis calculates the value of a spectral element by using all the samples 
from the interferogram. For example, for the spectral element 2/(2X) cm’’, B[2/(2X)] is 
calculated by going along the row corresponding to B[2/(2X)] and increasing the frequency of 
the cosine function multiplying F(x) as the sample position in x is increased. For each spectral 
element the whole interferogram must be used in order to get the best resolution 6a = 1/X. 

It is interesting to note in passing that there is no reason whatsoever to restrict ourselves 
to calculation along rows. We can perform the calculation (or transformation) just as well by 
proceeding according to columns; this we call a synthesis of the spectrum. In other words we 
imagine the B(a) to be represented by a plot in the spectral domain and look upon it as an 
image. What the operation by columns does is to slowly build up B(a) with higher and higher 
spatial structure as each interferogram sample with its corresponding cosine function is added 
to the previous sum. As can be seen from the matrix array when the third interferogram sample 
F[2(2E)] is used it contributes to all (in reality to half the spectral elements) the spectral 
elements from B(0) to B[N,/(2X)]. That is, the spatial frequency in cm’* space is fixed at 2/(2E) 
and the spectral components vary from 0 to B(E); the amplitude of the corresponding cosine 
function is given by the value of the interferogram at that sample. For the last sample 
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F[N,/(22:)] we have a cosine function of amplitude F[N,/(2Z:)] and frequency in the cm * domain 
of N,/(2E). This last frequency is seen to be the N, th harmonic of the fundamental 1/(2E). 

Let us now go back and rewrite Eq (11); 


Bj(a) = J F(x) 


= flAlx) . F{x)e-^^^°^dx, 


( 13 ) 


where A(x) is a weighing function in the interferogram domain. Using the convolution theorem 
we may write 


53(0) 


= A{o) *B(o), 


(14) 


with B((r)=F((r) being the Fourier transform of F(x), the tilda ~ over a function indicating the 
Fourier transform of the function and the asterisk * indicating convolution. It is important to 
note that B((r) is the spectral distribution that would be obtained by transforming a complete 
interferogram with no variations in spectral distribution throughout the scan, i.e., disregarding 
the limits, 


B(0) 


= Jf(x) e 


(15) 


On the other hand, B3((r) corresponds to a representation, an estimate, of the spectral distribution 
that existed between interferogram path differences X2 to X3 only. We must determine whether 
it is legitimate to take an interferogram with a varying B(a), obtain its Fourier transform and 
perform a convolution of Eq (14) in the spectral domain, to obtain the estimate B3(a). From Eq 
(12) above it would appear that this is indeed the case. 

A simulation should be done by generating an interferogram from a given B(cr), pulling 
the segment from X2 to X3 (which weTl call F3 (x)) and inserting it into another arbitrary 
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interferogram at the proper location in path difference. Again, it should be noted that the 
spectral estimate BjCa) is the correct B(ff) convolved with a scanning function and may not look 
at all like the original B((r) used in generating that segment of F(x). The next step would be to 
perform the convolution on B(a) and compare the result with the estimate B 3 ((r). This simulation 
would verify the legitimacy of the procedure as well as checking out the software for 
convolutions in the spectral domain. 

To be more specific about the estimate B 3 (a) (we shall use the "hat" symbol 
over the function to indicate an estimate) we use the convolution theorem again to obtain 


(16) 

£ 3 ( 0 ) » t ° ■2Cos2n ^ 1 

where again B 3 (ff) is the spectral distribution that is assumed to have persisted during Xj to Xj 
of the interferogram segment F 3 (x) and is really what we are interested in obtaining. 

The scanning function A(or) in the square brackets of Eq (16) represents a sine (0) 
modulated cosine function whose frequency, in cm ' space, is the midpoint of Ae segment of the 
interferogram F 3 (x), i.e., (x 2 +Xj)/ 2 . Figure 3 is a representation of the scanning function A((r) 
for arbitrary values of Ax and (Xj+Xj)/!. 


A(<r) 



Figure 3. Graphic Representation of the Scanning Function A(a). 

In actual practice there would be many more cycles of the cosine function within 
the central lobe of the sine function especially when considering the end of the interferogram or 
the last segment. To obtain an acceptable B 3 ((t) we must be able to perform a deconvolution or 
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a method of somehow extracting spectral information by jittering the window weighing function 
or interferogram segment a few, or several, sample points to more or less sweep the cosine 
peaks of A(a) within the since function envelop Even then it is not clear at present whether 
this is a fruitful approach. It is easy to obtain “BjCa) by performing the convolution; however, 
deconvolution is not so straightforward even when the scanning function is known. 

TEST RESULTS AND CONCLUSION 

This Section summarizes the technique and the results obtained in our attempt to obtain 
valid spectral distributions from an analysis of interferograms when the source spectral 
distribution B((r) varies during an interferometer scan. These variations may be due to a change 
of the field-of-view (FOV) of the interferometer or changing source emissions characteristics 
within a fixed FOV. 


The output signal D(x) from a Fourier Transform Spectrometer (FTS) as a function of 
path difference x amy be written as 


D{X) 


IdIO) 


+ 


2 ! 

jsia) Cos{2ax) da, 
0 


(17) 


with the corresponding interferogram F(x) being 


Fix) = D(x) - -i DiO) 


+ 



Cos[2ax) da. 


(18) 


From the Wiener-Khintchin theorem the spectral estimate B(cr), of maximum wavenumber E, 
is obtained by taking the cosine Fourier transform of F(x); 


B[a) = Jrix) cos2naxdx 


(19) 


where X is the maximum path difference for the interferometer scan. We assume we have a 
symmetric interferogram and rewrite the above expression as 
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( 20 ) 


X 

B{a) « jF(x) 

-X 


As per the technique described in prior Sections, we decimated the interferogram 
into segments of length Ax which we assumed to be short enough that we could take B(<r) to be 
constant during that time interval. The spectral distribution Bj (a) for the jth interferogram 
segment we represent by 


-Xj-l Xj 

Bj(a) = J + J F(x) (21) 

-Xj Xj.j^ 


Now if Bj(<r) were constant from x=0 to x=Xj we know that the proper estimate <Bj(ff)> would 
be given by 


<Bj(a) > 


i , sin2iiox,. 

J Fix) Cos2%axdx = Bj(a) *Xj 2no~' ' 
0 ^ 


( 22 ) 


with 


5/(0) 


sin27toXy 

27caXj 


(23) 


In the above * stands for convolution and S?({r) is called the scanning function. The scanning 
function S°(a) has a width inversely proportional to Xj and would be obtained if the spectral 
distribution were delta functions 6(<r^ao) situated at * in the spectral domain. The convolution 
of the real spectrum with a sine function S(a) has always been considered an acceptable estimate. 

We must now look at the spectral estimate obtained by analysis of a short segment 
of length Ax of the interferogram located at an arbitrary distance from the zero path difference 
(ZPD) of the interferogram. It is evident from the last equation that 
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Bj.(o) =<Bj-(o) > - <Bj..i(a) >, 


( 24 ) 


where the spectral distribution would be convolved with a scanning function consisting of the 
difference of two sine functions. However, we find it more convenient to determine the 
scanning function via a different route to obtain a more easily visualized scanning function. 

We may write 6j (a) as 


Bj (o) « jw(x) F(x) e 


(25) 


where the weighing function W(x) is as illustrated below; 



Figure 4. Weighing Function Consisting of Rec Functions. 
We obtain, by the convolution theorem 


Bj.(o) « Pi^(o) + Bj(a) 


(26) 
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where again B (a) is taken as the real spectrum and the tilda (~) sign over W(a) indicated 
Fourier transform. Now W(x) can be represented as the convolution of a rect function R(x) with 
the sum of two delta functions t_t (x), as illustrated below, with [t_t (x)= 6(x-j^) + 
5(x+xp]. 


RCx> 


(Convolution) 

« 


-Axy2 Ax/2 



Figure 5. Rectangular Function Convolved with Delta Functions. 

From the above it is clear that 

w(a) = R{a) .1 1 (o) , (2"^) 


which yields as scanning function 


Sj{a) 


P/(o) 


« [ 


AxnaAx 

%aAx 


] [Cos2nXja] . 


(28) 


The scanning function is thus seen to be a sine modulated cosine. The frequency of the cosine 
function corresponds to the center position of the jth segment and the sine function has a width 
inversely proportional to the segment length Ax. The figure below illustrates the scanning 
function Sj(a); it was obtained by Fourier transforming a segment of an interferogram of 
monochromatic radiation. We clearly see the function Sj (a) represented above, i.e., a constant 
frequency sine with amplitude varying as a sine function. 
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One Line 


SjW- 



Figure 6. Graphical Representation of Function Sj(a), one line. 


From the expression 


Bj{a) « jW{s) F{x) 


(29) 


we obtain the spectral estimate as 


Bj{a) = 5j {o) ♦Bj-(o) 


(30) 


The true spectrum Bj((r) is convolved with Sj((T) which, as we can see from Figure 7, is a more 
structured function than Sj(<T) which is a simple sine function. 

The spectral estimates for dense and highly-structured spectra would clearly not 
be acceptable because of the scanning function Sj (a). It is indeed only in rare cases that a 
segmented interferogram will yield easily-interpreted spectral estimates. For example, if Bj((r) 
consists of a single spectral line of unknown frequency it is possible to determine this frequency 
by looking at the envelope of the spectral estimate; as is evident from Figure 6. From Figure 
6 we can see that for widely-separated spectral lines of comparable strengths it is possible to 
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interpret the spectral estimate with respect to the line positions; however, the relative strengths 
of these lines would be questionable. 





ll 


P 


Two Lines 



Figure 7. Graphical Representation of Sj(a); two lines. 

We have looked into the possibility of extracting useful spectra from segmented 
interferograms by converting the spectra to absolute values and looking at the envelope. That 
is, for the case of two lines as in Figure 7 we rectified the cosine function to end up with all 
positive amplitude and drew an envelope curve. Since the lines are separated by an interval 
greater than the width of the base of the sine function in the scanning function Sj(a), a reasonable 
spectral estimate could be obtained. However, for closely-spaced lines the cosine functions, in 
Sj(a), interfere with each other either constructively or destructively depending on the 
wavenumbers of the lines and yield a highly-distorted spectral estimate. 

From the above it was concluded that, except for sparse spectra consisting of a 
series of appreciably-separated lines, the technique of rectifying and analyzing envelopes of the 
scanning function obtained from decimated interferograms is not acceptable. 

RESOLUTION ENHANCEMENT BY PHASE SHIFTING INTERFEROGRAMS 

INTRODUCTION 

Background material will now be presented which will lead to two conclusions 
that are contradictory; one comes from a theoretical treatment of ideal interferograms and the 
second from the physical properties of a Michelson interferometer treated as a transmission 
filter. 

MONOCHROMATIC CASE 

Let’s assume we have monochromatic radiation of wavenumber Oq and of unit 
strength with the corresponding interferogram given by 
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F{x) = COS2710oX 


( 31 ) 


The interferogram is a cosine function with a peak at ZPD and extending before and after ZPD. 
We assume that we have and error E in the determination of ZPD and perform the cosine 
Fourier transform as represented by 


X 

B( 0 o) = Jcos2Tiao(x + E) Cos2naxdx 
0 


(32) 


We can expand Eq 32 as follows 


B(Oo) = J[Cos2i:aoXCos2izaoE - Sin2nxaQSin2nao 


= Cos2naoeJcos2naoXCos2naxdx 


Sin2TiaQeJsin2i:aQxCos2noxdx 


(33) 


*■ From Eq 33 we see that if e = 0, or kXo = k/ap 


B(Oo) = jcos2TiaQxCos2Ttaxdx 


which yields the correct scanning function, i.e., 
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(34) 


X 

B(ao) « j [Cos2ti (o - oJx + Cos2n (o + Oo)x] dx 
0 


= X[ 


Sin2it(a -aQ)x 
2tc (a - Oo)x 


+ 


Sin2n (o + Oq) 
2n (o + Og)):? 


(35) 


Looking at only the positive frequency spectrum, namely 


Sin2u (o - Oq) -7^ 

^ 27t (o - Oq)-?^ (^^) 


we have a sine function with full width at the base (at the first zeros) given by 2/x. 

Returning to Eq 33 if e = Xo/4 or l/(4ao) then we retain only the 2nd integral 
which is an antisymmetrical profile being zero at a = Oq, i.e., 


X 


jsin2T:aQxCos2naxdx= 

0 


± - ^ -^[1 - Cos27i(o - Oglx] + 

2 2TC (O - Og) 


(37) 


where only the positive frequency term is shown in Eq 37. 

We may conclude from the above that for monochromatic radiation, corresponding to a cosine 
function interferogram, the correct scanning function (in this case the spectrum estimate) is 
obtained if the cosine FT is taken starting at any peak of the interferogram; the point of ZPD 
is not unique in this case. If the spectrum consists of many emission lines separated enough to 
allow examination of the line shapes, it is possible to determine the error e by placing e = k/a^ 
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for the line shape which is a sine function at the frequency wavenumber. 
EQUALLY-SPACED LINES 

This brings up an interesting observation. The interferogram corresponding to a 
spectrum of equally-spaced lines displays a central peak at ZPD plus signatures at intervals of 
path difference x/A where A is the separation of the spectral lines in cm ‘; that is for Xj = 1/A, 
X 2 = 2/A, etc. These signatures occur on both sides of ZPD, These interferograms points Xj, 
Xj, etc correspond to path differences where all the spectral elements are in phase, or aU the 
cosine functions peak simultaneously as they did at ZPD. If we were to take the FT starting at 
the path difference -Xj would the spectrum display enhanced resolution when compared with the 
FT starting at ZPD? Intuition suggests this is true! 

SYMMETRIZING THE INTERFEROGRAM 

To continue along the same line, if the spectral lines are not strictly equally spaced the 
signatures will not be so distinct and will be somewhat broadened. Is it possible to symmetrize 
the interferogram around a signature, say -X| or -X 2 , by taking the peak value of the signature 
as ZPD, perform the usual symmetrizing operation and then taking the FT starting from the peak 
value of the symmetrized signature? Again, intuitively one would say definitely yes! 

INTERFEROMETER PHYSICAL PROPERTIES/TRANSMISSION FILTER 

The above conclusion appears to contradict the prior conclusion that the negative portion 
of the interferogram, from -X to 0, contains the same information as the positive part, from 0 
to X, of the interferogram, and from the symmetry of the measurement this is apparently true. 
The incoming electromagnetic wave to the interferometer can be represented as a wavetrain F(t) 
given by 


F(t) 


^2 

= jA(f) 


(38) 


* where f is frequency and A(f) represents the amplitude of the EMF for the frequency f; with fi 

and f 2 being the cutoff frequencies. An ideal interferometer of the Michelson type divides the 
amplitude of the incoming wave in two equal parts F,(t) and F 2 (t) where F(t) = Fi(t) -I- F 2 (t). 
The displacement of one mirror of the interferometer introduces a time delay r in one of the 
’ divided wavetrains; the two wavetrains are then recombined. Mathematically this is represented 

by 
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(39) 


T 

J(x) = jFi(t)F2{t±T)dt 
0 


with the intensity at ZPD occurring when t = 0,1(0). Since F,(t) = F 2 (t) it is immaterial which 
wavetrain is delayed with respect to the other regardless of the shape of the input wavetrain; 
i.e., it can be symmetric or asymmetric about a center portion. From the above it seems clear 
that no added information is obtained by going to negative lags as well as positive lags, and 
appears to contradict the conclusions arrived at for interferograms with obvious distinct 
signatures! 

This latter conclusion can be reinforced (or supported) by considering the interferometer 
as a transmission filter. For a given optical path difference the transmission of the 
interferometer is a cos^ function of wavenumber (cm’’); which may be written as a DC 
component plus a cosine function. The period in cm’’s of this cosine transmission function is 
inversely proportional to the OPD in the interferometer. The maximum OPD, X, determines 
the finest structure which can be separated out of the spectrum; namely, the resolution is given 
by 5(a) = 1/X. Since it makes no difference to the electromagnetic field which mirror of the 
interferometer is displaced, or equivalently which wavetrain is delayed with respect to the other, 
going to the same OPD of X with the other interferometer mirror yields the same frequency. 

FINAL ANALYSIS 

Returning to Section "Symmetrizing the Interferogram" we find that intuition would 
support enhanced resolution. However results in the previous Section Interferometer Physical 
Properties/Transmission Filter" indicate that shifting ZPD to another optical path difference A 
introduced a phase factor given by 2xaA. It was also shown that such shifting of ZPD is 
equivalent to shifting the central pe^ of the interferogram to the path difference A. Now the 
technique of symmetrizing an interferogram is as follows: 1) a short segment of the 
interferogram centered around ZPD is Fourier transformed; 2) the phase function <f>(o) for the 
spectrum is obtained; 3) the original interferogram is convolved with </)(x) the Fourier transform 
of e '*’"’ to symmetrize the interferogram. 

It should be noted that the same function <^(x) is used throughout the interferogram and * 

consequently does a phase shifting at portions of the interferogram away from ZPD; including 
in the region of signatures. However, in order to symmetrize the interferogram about a 
signature at an OPD of A the phase factor 2TaA mentioned above would have to be added to 
0(a). The resultant phase function 0(a) = 0(a) + 2iraA is a rapidly varying function and the » 

symmetrizing operation would not work since the technique of Forman, Steel and Vanasse (FSV) 
assumes that the phase function is slowly varying. 

Were it possible to symmetrize the interferogram about a signature, we would find that 
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we have essentially shifted the whole interferogram by an amount equal to the position of the 
signature. This is due to the fact that passing a function, i.e. the interferogram, through a linear 
phase shift filter does not distort the function but advances or delays it an amount equal to A. 
However, attempting to determine the proper phase function at a signature would require 
extremely high resolution because of the rapidly varying nature of this phase function; the result 
obtained using realistic data would yield a near-random distribution of phases across the 
spectrum. 

CONCLUSION 

In this report we have shown that it is not possible to treat an interferogram as an 
ordinary time function. The interferogram is an auto-correlation function and has the unique 
property of having its maximum value at the zero path difference, or a zero lag. The phases of 
the component sinusoid which make up the electromagnetic field function are lost. The 
individual sinusoid are shifted in phase by the interferometer so that they all interfere 
constructively at the zero path difference position in the interferogram. The amplitudes of these 
sinusoids are not obtained directly; it is their power spectral values that are determined by a 
Fourier transformation of the interferogram. 

Spectral variations which may occur during an interferometer scan were classified as 
achromatic or chromatic. It was shown that in the achromatic case, when all the spectral 
components vary in unison, it is possible to correct for the temporal fluctuations before Fourier 
transformation to obtain valid spectral data. It was emphasized that in some case it is critical 
to correct for temporal fluctuations before symmetrizing an interferogram. 

The chromatic case for spectral variations would require a deconvolution technique if 
one were to be studying a complex spectrum of arbitrary structure. This requirement is due to 
the complex nature of the scanning function resulting from decimating the interferogram into 
sections during which time the spectral distributions are stationary. 

Finally, it was concluded that resolution enhancement by symmetrization of the 
interferogram would not yield hoped-for results. The physical experiment performed by the 
interferometer makes it abundantly clear that negative lags yield information redundant with that 
of positive lags. The bottom line is that the interferogram is not an ordinary time series. 
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PART TWO 


ULTRAVIOLET BACKGROUNDS 


CHAPTER 1. INTRODUCTION 

The atmospheric background radiances in the ultraviolet spectral region result from entirely 
different classes of processes than infrared backgrounds. Atomic and molecular electronic 
transitions determine the observed spectral distributions. Consequently, in Chapter 2 a brief 
overview of the concepts and terminology for predicting emissions and atmospheric transmission 
in this spectral region is provided. Scattered sunlight is a major contributor for illuminated 
conditions and a driver for the chemiluminescence reactions that dominate the nightglow. The 
solar interactions are described in Chapter 3. The atmospheric emission features present in the 
nightglow, dayglow, and aurorae are discussed in Chapter 4. Production mechanisms and 
characteristic intensities are given. Atmospheric solar scattering processes and predictive codes 
are outlined in Chapter 5. Substantial progress has been made during the last decade in our 
understanding of the atmospheric UV backgrounds, much of it under BMDO sponsorship. In 
particular, imaging arrays have permitted spatial distributions of the background radiances, and 
simultaneous spatial/spectral information about these backgrounds to be obtained. These recent 
advances in our knowledge of the airglow and auroral backgrounds and structure are reviewed 
in Chapter 6. A summary, a discussion of remaining unknowns, and a brief description of some 
near-term missions are presented in Chapter 7 relative to backgrounds due to ultraviolet 
radiation. 

The ultraviolet (UV) portion of the spectrum is generally defined to encompass the spectral 
region between 100 and 4(XX)A (10 and 4(X) nm). The material presented will largely be limited 
to wavelengths above 10(X)A although limited observations concerning shorter wavelengths, the 
so-called Extreme Ultraviolet (EUV), will be presented. For descriptive purposes the remainder 
of the UV spectrum is typically divided into three regions, each 1(XX)A (1(X) nm) wide. These 
are: the Far Ultraviolet (FUV), KXX) to 2(X)0A (1(X) to 200 nm); the Middle Ultraviolet (MUV), 
2000 to 3000A (200 to 300 nm); and the Near Ultraviolet (NUV), 3000 to 4000A (300 to 
400 nm). 

There are two other descriptive terms of common usage in the atmospheric optics 
community. The first is the vacuum ultraviolet (VUV) corresponding to wavelengths below 
2000A (200 nm). This term arises because of the fact that laboratory observations at these 
wavelengths generally require the use of vacuum optical systems because of the severity of O 2 
absorption (see Chapter 3). The other term is the so-called solar-blind region referring to 
wavelengths between KXX) and 30(X)A (100 to 3(X) nm). This terminology is generally used to 
describe detectors which do not respond to longer wavelength light and thus can be used in 
sunlight without concern for saturation. 
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CHAPTER!. RADIATION PHYSICS 


INTRODUCTION 


The purpose of this chapter is to provide a brief overview of the basic concepts, 
equations, and terminology used in both predicting atomic/molecular emissions and calculating 
their transfer through the atmosphere. Emphasis will be on electronic state transitions of 
species, these being most appropriate for the generation of UV emissions. Where possible 
references are provided for more detailed discussions on the subject, appropriate data bases and 
useful computer codes. 

MOLECULAR EMISSION 

Molecular radiation in the ultraviolet generally occurs in transitions between vibrational 
and rotational states of differing electronic states of the molecule. These individual transitions 
provide radiation over spectrally isolated regions according to selection rules to be discussed 
later. The accumulation of all such transitions between two electronic states is called a band 
spectrum with historical symbolic designations specifying the specific states of interaction. 
These designations are fairly straightforward for diatomic molecules and are covered in classic 
texts such as Pearse and Gaydon [1] and Herzberg [2]. The prediction of polyatomic molecule 
electronic states is considerably more complex, but still tractable. The work by Herzberg [3] 
remains a standard text in this latter area. There are many more modem texts which cover this 
whole area, for example Steinfeld [4], however, the earlier texts are still sound. Our emphasis 
will be on atoms and diatomic molecules, these providing the dominant UV atmospheric 
emissions. The specific terminology used to describe the radiation transfer of atomic/molecular 
emissions is summarized in Table 1 and described below. 

The general relationship for the total emission from a given transition between two 
electronic states (radiant power per unit volume) is 


where p' and p" are the upper and lower states respectively. A,-,, is the transition probability 
(Einstein coefficient) in units of s ', and N,. is the population of the upper state in units of 
molecules/cm^ The units of j are thus photons/cm^-s. Conversion from photons to watts is 
achieved by multiplying by hp, the energy of the transition involved, specified in joules. i 

Conversion of the radiation density to sr* units is achieved by dividing by 4ir. The intensity, 
specified in W/cm^ is obtained through an integration of the radiation density over the line of 
sight, through use of the equation of radiative transfer, see the next Subsection. 
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Table 1. Terminology of Radiative Transfer of Molecular Emission 



Radiant power per unit density, W/cm^ 

w 

Radiant intensity, W/cm^ * 

Pi,'y 

Einstein coefficient, s ' * 

T,’ 

Radiative lifetime of state p', s 

(l,’y 

Franck-Condon factor, dimensionless 

|Re(f)r 

Electronic transition probability, (stat-coulomb-cm)^ 

V 

Frequency, cm ' 

Fo. 

Oscillator strength for atomic transition from state i to k, dimensionless 

gi 

Degeneracy for state i, dimensionless 

kv 

Absorption coefficient at frequency v, cm ' 

Apd 

Doppler line width, cm ' 

S 

Transition line strength, amagaf' x cm‘^ 

‘Quantities refer to transitions from state p' to v" 


The Einstein coefficients can be defined by more elemental quantities: 

A, I </I Re(r) 1 ."> P (2-2) 

jh 

where the bracketed term represents the integral of the state wave functions over the electric 
dipole-moment operator and h is Planck’s constant. This former quantity is normally described 
as the product of two parts: (1) the Franck-Condon factor, which describes the overlap between 
the two states 


q. .. - I P P-3) 

and (2) the electronic transition probability | (r) | Note that the magnitude of R^ does vary 

somewhat with intemuclear distance r. The assumption of the Franck-Condon approximation 
is that this variation is slow and that R* may be replaced with an average value. {See Fraser [5] 
on the R centroid method for evaluating the variation of with intemuclear separation.) 

Radiative calculations are often performed using lifetimes instead of Einstein coefficients. 
The total lifetime of a state designated by p' is given by 
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1 


(2-4) 


Knowledge of this terminology is sufficient to allow use of the literature to specify band 
and line intensities. Of course, not all transitions between upper and lower states are allowed. 
Allowed transitions are defined by a set of selection rules which are governed by such quantities 
as the spin and angular momentum of the electronic molecular states. These selection rules are 
well developed, although quite complex for some molecules. An excellent overview of selection 
rules for diatomic molecules is provided in Herzberg [2]. 

The Franck-Condon factors and electron transition moments (or r-centroids) for diatomic 
species has received significant attention and several surveys of these for air species such as O 2 , 
N 2 , N 2 '^ are available. The most recent of these is by Gilmore et al. [ 6 ]. Other useful 

reviews have been provided by Krupenie [7], Lofthus and Krupenie [ 8 ], Slanger [9], and Hsu 
and Smith [10]. 

The last quantity required in the evaluation of Eq. (2-1) is the state population. Under 
equilibrium or at least Boltzmann conditions there are simple relations which allow evaluation 
of a specific state population, designated by quantum numbers for electronic state, spin, vibration 
and rotation, in terms of translational, rotational, vibrational and electronic temperatures (see, 
for example, Herzberg [2]). In general, however, the emission states of interest will be 
populated in non-equilibrium and often non-Boltzmann distributions, with population mechanisms 
involving electron or photon excitation, and chemical reaction. The details of these excitation 
mechanisms will be provided in Chapter 4. 

The discussion so far has emphasized diatomic molecules. There are also a number of 
atomic transitions of relevance in atmospheric UV emissions. Equation (2-1) still pertains for 
atomic transitions, however, the expression for the Einstein coefficient simplifies. The atomic 
Einstein transition between states k and i with wavelength Xj cm (note X = y') is 


. 6.67 X lO^’ gj . 

_ 4 (2-5) 

where gj and g^ are the statistical weights of the lower and upper states and f^ is the 
dimensionless absorption oscillator strength.* Tabulation of these quantities for relevant 
atmospheric transitions may be found in Weise et al. [11, 12]. 

RADIATIVE TRANSFER 


As radiation from a specific species traverses the atmosphere, it can be absorbed and 
scattered. The absorption can be self-absorption, i.e., the inverse of the emission process, or 


‘Note that the emission oscillator strength f^ = g/g^ fj^. 
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co-incidental by other species and band systems. Scattering can be either by molecular or 
aerosol means with aerosols becoming more important at lower altitude, see Chapter 5. 

The specification of transmitted radiation requires evaluation of the radiative transfer 
equation which involves use of several other radiometric quantities: absorption coefficient, line 
strength, and line shape. Although a discussion of the full radiative transfer equation is beyond 
the scope of this text, definitions of these quantities are provided below. 

The basic quantity of the radiative transfer equation is the absorption coefficient k„ cm *. 
The quantity k, is a measure of the absorption of intensity I, at frequency v per unit length, i.e., 

- -k.I. • (2-6) 

In Eq. (2-6), the quantity k, includes the density of the absorbing state(s), although it is often 
expressed in terms of per unit density. Although at a given frequency the absorption may be 
due to just one transition in general, the quantity k, can be composed of contributions from a 
number of discrete and continuum absorbers. Here the discussion will be limited to a single 
absorbing transition. 

A discrete optical transition actually radiates over a finite, rather than single, frequency 
range as determined by its line shape function. The line shape is generally written in terms of 
the absorption coefficient, k,, which is a measure of the absorption per unit length per unit 
density at frequency v. The simplest line shape for a stable transition is the Doppler line shape 
which results from the Maxwellian velocity distribution of the molecule. This is specified as: 


S 


tnl 

T 


m 

g -fii2 ((r-0/A»„)’ 


(2-7) 


where is the central frequency of the transition and is the doppler line width in cm *: 


^ (2 k fn2 T/m)’'^ (2 -8) 

c 

where c is the speed of light, k is Boltzmann’s constant, T is translational temperature, and M 
is molecular weight in grams/mole. 

The quantity S is the line strength, which is the integral of the absorption coefficient over 
frequency space 


S = 




and is related to the Einstein coefficient defined earlier by the relationship 


(2-9) 
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( 2 - 10 ) 


S 


<u 


1 

8tc»^ 


N, A, 


u-< 


St 


where N is in molecules or atoms cm'^ and we have once again introduced the notation of lower 
and upper states as a reminder that all terms are specific to a given transition. Again, the band 
strength is often quoted in units of density at STP, i.e., with N, defined as 2.67 x 10*’ mol/cm^ 
This latter unit is designated by the term amagat. 


These quantities are described in more detail in many standard texts, for instance, 
Mitchell and Zemansky [13] and Penner [14]. In particular, expansions on both line shape 
theory, including collisional effects, and radiative transfer may be found therein. Generally, 
atmospheric transmission for UV radiation can be adequately handled using the Doppler line 
shape formalism. 

Radiative transfer involving only molecular absorption and fluorescence can be handled 
adequately with modest computer models in terms of the quantities defined above (see Mitchell 
and Zemansky [13] and Penner [14]). The inclusion of scattering effects significantly 
complicates the radiative transfer problem. Since the scattering process changes the photon 
direction, the prediction of radiative signal is no longer a straightforward line-of-sight 
calculation, but must include contributions from sources scattered into or out of the field of 
view. This subject is beyond the scope of this text but detailed elaborations may be found in 
Chandrasekhar [15], Van de Hulst [16], LaRocca [17], and Brasseur and Solomon [18] among 
others. Extant computer models for the prediction of atmospheric UV radiative transfer are 
reviewed in Chapter 5. 
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CHAPTER 3 


THE SOLAR FLUX AND ITS INTERACTION WITH THE ATMOSPHERE 

The properties of the solar flux and its interaction with the atmosphere are described in 
numerous standard texts. The information collected below is largely taken from several recent 
publications including Hall et al. [1], Rees [2], Meier [3], and Huffman [4], 

THE SOLAR SPECTRUM 

A representative solar spectrum for wavelengths above 3000A as taken from Hall 
et al. [1] is shown in Figure 1. To first order this spectrum looks much like that of a blackbody 
with a characteristic temperature of ~ 6000 K. The total solar insolation at the top of the 
atmosphere, i.e., the integral of this spectrum over wavelength, is approximately 1.37 kW/m^ 
and varies only slightly. 

The UV portion of the solar flux is quite distinct from the visible in that it is spectrally 
structured and its intensity, below ISOOA, is highly variable depending strongly on solar 



Figure 1. The Solar Spectral Irradiance for Wavelengths Longer than 3000A. The data 
between 3000A and 3 ^m are from Labs and Nickel and from Thekaekara above 
3 fim. These data are from a summary given by Pierce and Allen [5]. 
(Excerpted from Hall et al. [1]). 
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activity. An example of this variability is shown in Figure 2, taken from Hall et al. [1] which 
shows observed UV intensity ratios between January 1979 solar maximum to the July 1976 solar 
minimum. This ratio approaches unity at wavelengths longer than »2300A. Nicolet [7] has 
recently published a useful retrospective on the uncertainty and variability of reported 
measurements of solar UV emissions. 

The spectral structure in the solar spectrum below 4000A is shown in the composite solar 
spectral irradiance for solar minimum conditions as developed by Meier [3] which is presented 
in Figure 3. As can be seen, the solar spectrum below — 1300A is dominated by isolated spectral 
lines of atomic/ionic species. The strildng feature seen at 1216A is the hydrogen Lyman a line. 
Hall et al. [1] provide a useful tabulation of the UV solar flux intensity at the top of the earth’s 
atmosphere in lOA intervals. A shortened version of that tabulation is provided in Table 3-1 
for the wavelength range of 1000 to 3180A. These values are appropriate to solar minimum. 



Figure 2. The Ratio of the Solar Spectral Irradiance Near Solar Maximum During January 
1979 to the Irradiance Near Solar Minimum During July 1976 for Solar Cycle 21. 
The ratios are plotted for 25A intervals of wavelength [6]. (Excerpted from Hall 
et al. [ 1 ].) 
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Figure 3. Composite Solar Spectral Irradiance for Solar Minimum Conditions. SUSIM data 
at l.SA resolution [8] are used from 1207 to 4000A. These data were obtained 
during the Spacelab 2 mission in July 1985. From 18 to llOOA, the Hinteregger 
et al. [9] quiet-Sun reference spectrum (SC No. 21REF) appropriate to July 1976 
is used after binning into lA intervals. The Donnelly and Pope [10] 
representation of weak lines, superimposed on strong lines from the SC No. 
21REF tabulation is used to fill the gap between 1100 and 1207A. (Excerpted 
from Meier [3].) 

As is well understood the visible portion of the solar spectrum will transmit through the 
earth’s atmosphere (although undergoing scattering) ultimately striking the surface and being 
partially absorbed and partially reflected back to space. On the other hand the solar light 
corresponding to the wavelengths of Table 1 and lower will be absorbed within the atmosphere. 
In many instances this absorption will result in the creation of excited or reactive states which 
can produce new emissions, see Chapter 4, discussing the airglow. In the following paps we 
will provide a brief definition of the atmosphere and its composition and then characterize the 
atmospheric absorption of solar UV emissions. 

THE ATMOSPHERE 

The properties of the atmosphere vary with geographical location, solar activity and 
season. They are most easily discussed in terms of the U.S. Standard Atmosphere 1976, which 
is a static atmosphere corresponding to mean annual conditions for moderate solar activities at 
45°N. This atmosphere is described in detail in COESA [11]. The U.S. Air Force has ^so 
established a set of standard atmospheres [12] specifying seasonal and geographical variability. 
A useful summary of these standard atmospheres is provided by Champion et al. [13]. 
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Table 2. Solar Irradiance for Quiet Sun at the Top of the Earth’s Atmosphere 
(integrated over lOA intervals). From Hall et al. [1] 


Wavelength Interval 

A 

(10® photons cm'^ s ‘) 

Wavelength Interval 

A 

^AX 

(10® photons cm'^ s ‘) 

1000 - 1010 

0.119 

1250 - 1260 

1.080 

1010 - 1020 

0.222 

1260 - 1270 

0.930 

1020 - 1030 

3.671 

1270 - 1280 

0.750 

1030 - 1040 

3.794 

1280 - 1290 

0.500 

1040 - 1050 

0.244 

1290 - 1300 

0.860 

1000 - 1050 

8.05 

1250 - 1300 

4.12 

1050 - 1060 

0.292 

1300- 1310 

4.585 

1060 - 1070 

0.405 

1310 - 1320 

0.780 

1070 - 1080 

0.528 

1320 - 1330 

0.780 

1080 - 1090 

1.021 

1330 - 1340 

5.300 

1090- 1100 

0.599 

1340 - 1350 

0.920 

1050- 1100 

2.85 

1300 - 1350 

12.37 

1100 - 1110 

0.083 

1350 - 1360 

1.47 

1110 - 1120 

0.022 

1360 - 1370 

1.05 

1120-1130 

0.679 

1370 - 1380 

1.13 

1130- 1140 

0.045 

1380 - 1390 

1.04 

1140- 1150 

0.077 

1390 - 1400 

2.70 

1100- 1150 

0.906 

1350 - 1400 

7.39 

1150- 1160 

0.129 

1400- 1410 

2.70 

1160- 1170 

0.219 

1410 - 1420 

1.59 

1170-1180 

2.872 

1420 - 1430 

1.90 

1180- 1190 

0.493 

1430 - 1440 

2.10 

1190- 1200 

0.675 

1440 - 1450 

2.10 

1150- 1200 

4.39 

1400 - 1450 

10.39 

1200 - 1210 

4.855 

1450 - 1460 

2.30 

1210 - 1220 

251.774 

1460 - 1470 

3.00 

1220 - 1230 

0.636 

1470 - 1480 

3.80 

1230 - 1240 

1.480 

1480 - 1490 

3.70 

1240 - 1250 

0.640 

1490 - 1500 

3.40 

1200 - 1250 

259.39 

1450 - 1500 

16.20 
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Table 2. Solar Irradiance for Quiet Sun at the Top of the Earth’s Atmosphere 
(integrated over lOA intervals). From Hall et al. [1] (Continued) 


Wavelength Interval 

A 

(10’ photons cm'^ s*’) 

Wavelength Interval 

A 

^AX 

(10’ photons cm'^ s ') 

1500- 1510 

3.90 

1750 - 1760 

56.99 

1510 - 1520 

4.50 

1760 - 1770 

61.97 

1520 - 1530 

5.50 

1770 - 1780 

74.02 

1530 - 1540 

5.90 

1780 - 1790 

80.99 

1540 - 1550 

9.50 

1790 - 1800 

82.96 

1500 - 1550 

29.30 

1750 - 1800 

356.93 

1550 - 1560 

8.80 

1800- 1810 

103.00 

1560 - 1570 

9.00 

1810 - 1820 

126.00 

1570 - 1580 

7.70 

1820 - 1830 

132.02 

1580 - 1590 

7.10 

1830 - 1840 

131.96 

1590 - 1600 

7.20 

1840- 1850 

110.95 

1550 - 1600 

39.80 

1800 - 1850 

603.93 

1600- 1610 

7.90 

1850- 1860 

190.51 

1610 -1620 

9.40 

1860- 1870 

237.55 

1620 - 1630 

11.10 

1870- 1880 

265.25 

1630 - 1640 

12.00 

1880 - 1890 

279.95 

1640 - 1650 

15.30 

1890- 1900 

293.84 

1600 - 1650 

55.70 

1850 - 1900 

1267.10 

1650 - 1660 

25.00 

1900 - 1910 

293.48 

1660 - 1670 

18.40 

1910 - 1920 

332.62 

1670 - 1680 

23.00 

1920 - 1930 

347.92 

1680 - 1690 

26.99 

1930 - 1940 

254.26 

1690 - 1700 

37.02 

1940 - 1950 

446.52 

1650 - 1700 

130.41 

1900 - 1950 

1674.80 

1700 - 1710 

43.00 

1950 - 1960 

427.16 

1710 - 1720 

43.99 

1960 - 1970 

485.73 

1720 - 1730 

45.98 

1970 - 1980 

487.21 

1730 - 1740 

41.99 

1980 - 1990 

492.68 

1740 - 1750 

50.02 

1990 - 2000 

552.41 

1700 - 1750 

224.98 

1950 - 2000 

2445.19 
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Table 2. Solar Irradiance for Quiet Sun at the Top of the Earth’s Atmosphere 
(integrated over lOA intervals). From Hall et al. [1] (Continued) 


Wavelength Interval 

A 

(10® photons cm'^ s ') 

Wavelength Interval 

A 

^AX 

(10® photons cm'^ s ') 

2000 - 2010 

624.83 

2250 - 2260 

6.95 X lO' 

2010 - 2020 

629.98 

2260 - 2270 

5.34 

2020 - 2030 

642.27 

2270 - 2280 

5.50 

2030 - 2040 

763.27 

2280 - 2290 

8.88 

2040 - 2050 

895.71 

2290 - 2300 

7.18 

2000 - 2050 

3556.06 

2250 - 2300 

33.85 X 1(P 

2050 - 2060 

909.75 

2300-2310 

6.88 X KP 

2060 - 2070 

964.77 

2310 - 2320 

5.94 

2070 - 2080 

1128.23 

2320 - 2330 

6.54 

2080 - 2090 

1270.13 

2330 - 2340 

5.42 

2090 - 2100 

2562.98 

2340 - 2350 

4.87 

2050 - 2100 

6845.86 

2300 - 2350 

29.65 X 10* 

2100-2110 

2.72 X 10^^ 

2350 - 2360 

6.78 X KP 

2110-2120 

3.52 

2360 - 2370 

6.18 

2120-2130 

2.92 

2370 - 2380 

6.15 

2130-2140 

3.81 

2380 - 2390 

5.36 

2140-2150 

4.81 

2390 - 2400 

5.85 

2100 - 2150 

17.78 X 10^’ 

2350 - 2400 

30.32 X 10^ 

2150 - 2160 

3.74 X 10^^ 

2400 - 2410 

5.10x 10^ 

2160-2170 

3.48 

2410 - 2420 

7.00 

2170 - 2180 

3.72 

2420 - 2430 

9.39 

2180 - 2190 

5.07 

2430 - 2440 

8.49 

2190 - 2200 

5.60 

2440 - 2450 

7.73 

2150 - 2200 

21.61 X lO’ 

2400 - 2450 

37.71 X 1(P 

2200 - 2210 

5.42 X 10^ 

2450 - 2460 

6.46 X 1(P 

2210 - 2220 

4.19 

2460 - 2470 

6.79 

2220 - 2230 

5.80 

2470 - 2480 

7.50 

2230 - 2240 

7.96 

2480 - 2490 

5.43 

2240 - 2250 

7.17 

2490 - 2500 

8.18 

2200 - 2250 

30.54 X 10^ 

2450 - 2500 

34.36 X lO’ 
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Table 2. Solar Irradiance for Quiet Sun at the Top of the Earth’s Atmosphere 
(integrated over lOA intervals). From Hall et al. [1] (Continued) 


Wavelength Interval 

A 

(10® photons cm‘^ s'*) 

Wavelength Interval 

A 

(10® photons cm'^ s'*) 

2500 - 2510 

7.66 X 10* 

2750 - 2760 

21.2 X 10^ 

2510 - 2520 

5.69 

2760 - 2770 

32.1 

2520 - 2530 

5.55 

2770 - 2780 

34.6 

2530 - 2540 

7.16 

2780 - 2790 

24.9 

2540 - 2550 

8.17 

2790 - 2800 

13.3 

2500 - 2550 

34.23 X 10* 

2750 - 2800 

126.0 X 10^ 

2550 - 2560 

11.2 X 10" 

2800 - 2810 

13.1 X l(f 

2560 - 2570 

14.6 

2810 - 2820 

28.9 

2570 - 2580 

16.9 

2820 - 2830 

40.1 

2580 - 2590 

16.1 

2830 - 2840 

44.0 

2590 - 2600 

12.0 

2840 - 2850 

33.9 

2550 - 2600 

70.8 X lO’ 

2800 - 2850 

160.0 X 10* 

2600 - 2610 

11.9 X 10* 

2850 - 2860 

22.6 X 1(P 

2610 - 2620 

12.9 

2860 - 2870 

46.9 

2620 - 2630 

13.5 

2870 - 2880 

45.7 

2630 - 2640 

25.1 

2880 - 2890 

44.4 

2640 - 2650 

32.4 

2890 - 2900 

63.9 

2600 - 2650 

95.8 X 10^ 

2850 - 2900 

224.0 X 10" 

2650 - 2660 

34.2 X 1(F 

2900 - 2910 

81.6 X 10" 

2660 - 2670 

31.7 

2910 - 2920 

77.1 

2670 - 2680 

33.0 

2920 - 2930 

68.3 

2680 - 2690 

31.8 

2930 - 2940 

73.9 

2690 - 2700 

32.4 

2940 - 2950 

69.2 

2650 - 2700 

163.0 X 

2900 - 2950 

370.0 X 10" 

2700 - 2710 

35.7 X lO’ 

2950 - 2960 

68.1 X 10" 

2710 - 2720 

29.3 

2960 - 2970 

73.6 

2720 - 2730 

26.0 

2970 - 2980 

61.1 

2730 - 2740 

28.6 

2980 - 2990 

64.0 

2740 - 2750 

18.2 

2990 - 3000 

64.4 

2700 - 2750 

138.0 X lO" 

2950 - 3000 

331.0 X 10" 
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Table 2. Solar Irradiance for Quiet Sun at the Top of the Earth’s Atmosphere 
(integrated over lOA intervals). From Hall et al. [1] (Continued) 


Wavelength Interval 

A 

(10® photons cm'^ s ‘) 

Wavelength Interval 

A 

^AX 

(10® photons cm’^ s ') 

3000 - 3010 

50.8 X lO’ 

3100-3110 

78.5 X 10* 

3010 - 3020 

59.3 

3110-3120 

87.9 

3020 - 3030 

63.5 

3120-3130 

78.9 

3030 - 3040 

77.7 

3130-3140 

85.3 

3040 - 3050 

74.9 

3140-3150 

74.6 

3000 - 3050 

326.0 X 1(F 

3100-3150 

405.2 X lO" 

3050 - 3060 

73.5 X lO’ 

3150-3160 

66.5 X lO’ 

3060 - 3070 

71.9 

3160-3170 

77.8 

3070 - 3080 

79.0 

3170 - 3180 

105.0 

3080 - 3090 

76.4 



3090 - 3100 

58.5 



3050-3100 

359.0 X KF 




The atmosphere is most usefully defined in terms of its temperature-height profile which 
as shown in Figure 4a and b. The various characteristic thermal regions of the atmosphere, 
defined from the surface to 1000 km are delineated on these figures. Note that in the absence 
of interactions between the solar flux and the atmosphere the atmospheric temperature would 
decrease uniformly with increasing altitude. Thus, regions of increasing temperature clearly 
demarcate important solar absorptions. As discussed below solar UV absorption by O 3 
dominates in the stratosphere and photo-dissociation of O 2 and photo-ionization by VUV photons 
dominate in the thermosphere. We note further that the exospheric temperature is strongly 
dependent on the intensity of VUV emissions, and thus on solar activity, and can vary between 
-600 to 1900 K. 

The atmosphere is often also denoted by species concentration rather than temperature 
variations. The region up to the mesopause, ~ 86 km, corresponds to a uniform mix of the major 
constituents Oj and N 2 and is denoted as the homosphere. At higher altitudes oxygen atoms 
become a significant species and ultimately dominate the O 2 and N 2 concentrations. Generic 
species profile behavior for the U.S. Standard Atmosphere, 1976 are shown in Figure 5. The 
ionosphere, the region of the atmosphere containing significant electron/ion concentrations, 
begins at about 70 km. Again photo-ionization becomes important at wavelengths below about 
1338A (NO) and thus the atmospheric electron density will be variable with solar activity. 
Figure 6 , taken from Huffman [4], exemplifies extreme day/night variations in electron densities 
and also delineates the various regions of the ionosphere. 


37 








Temperature (K) Kinetic Temperature (K) 


Figure 4a. Temperature-height profile for 
U.S. Standard Atmosphere, 1976. 0-86 km. 
(Excerpted from Champion et al. [13].) 


Figure 4b. Kinetic temperature as 
a function of geometric altitude. 
U.S. Standard Atmosphere, 1976. 


Detailed empirical models of the thermosphere have been developed through collation of 
satellite, rocket and radar data. The most current thermospheric model is MSIS-90 [14-16] 
which allows specification of thermospheric species concentrations and temperatures as a 
function of solar and magnetic activity, local time and geographical location. A useful 
compilation of thermospheric variability as predicted from the MSIS-86 model is tabulated in 
Rees [2]. (Another model that has been widely used in the past is that of Jacchia [17]. Its use 
has largely been supplanted by the availability of MSIS-86 and MSIS-90). 

A variety of three dimension global atmospheric models has been under development for 
a number of years although they are in general only accessible to specialists. Rees [2] provides 
a useful review of the state-of-the-art of thermospheric general circulation models. Descriptions 
of circulation models for the lower atmosphere may be found in standard texts, e.g., Brasseur 
and Solomon [18] and Chamberlain and Hunten [19]. 
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1000 



Figure 5. Number Density of Individual Species and Total Number Density as a Function 
of Geometric Altitude. Excerpt^ from U.S. Standard Atmosphere, 1976. 



12 3 4 5 6 7 8 

Log Electron Density (cm-3) 

Figure 6. Electron Density Profiles in the Ionosphere (based on data in the Handbook of 
Geophysics and the Space Environment). (Excerpted from Huffman [4].) 
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ATMOSPHERIC ABSORPTION OF SOLAR FLUX 

It is clear that both the static and dynamic properties of the atmosphere are largely 
defined by the interaction of the solar flux with atmospheric sp^ies. The complex variation in 
temperature with altitude, the transition of the homosphere into the thermosphere, and the 
formation of the ionosphere are all primarily the result of atmospheric species absorption of 
ultraviolet solar emissions. The UV absorption occurs through a number of important 
interactions as discussed below. 

One useful perspective for overviewing these interactions is to examine the altitude 
penetration depth of the solar UV flux as a function of wavelength. This type of presentotion 
has been frequently provided in terms of the altitude for unit optical depth as a function of 
wavelength (unit optical depth is defined as the point where the intensity is attenuated to e' of 
its initial value). A representation of the altitude of unit optical depth versus wavelength for 
vertically incident UV radiation is shown in Figure 7, as excerpted from Meier [3]. As can 



Figure 7. Altitude at Which Vertically Incident UV Radiation is Attenuated by e . Dash^ 
lines at top identify spectral regions where extinction by the indicated species is 
significant. Arrows give the ionization thresholds of important atmospheric species. 
Atmospheric regions are given on the right. Altitudes for solar max and min were 
obtained using the MSIS-86 model (see Chapter 2) above 90 km; below 90 km, the 
US standard atmosphere was used. Absorption cross sections were taken from 
Conway [20] for Nj, Oj, O in EUV, from Watanabe [21], Blake et al. [22], 
Yoshino et al. [23], and Nicolet and Kennes [24] for O 2 in the FUV and MUV, and 
from Molina and Molina [25] for O3. Earlier versions of these curves appeared in 
Lean [26] and Chamberlain and Hunten [19]. (Excerpted from Meier [3].) 
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be seen Figure 7 also delineates the spectral regions over which various absorption features 
dominate. As mentioned earlier photoionization begins to play a role at wavelengths below 
1338A but does not become an important UV loss process until wavelengths below 1028A. 
Oxygen photodissociation becomes important at wavelengths roughly below 1900A and O 3 photo¬ 
dissociation in the stratosphere dominates at longer wavelengths. A convenient tabulation 
delineating the energetic onset of the various dissociation and ionization processes important in 
the atmosphere is provided in Table 3. 


Table 3. Important Atmospheric Energy Thresholds (from ground states). 

(Excerpted from Huffman [4].) 


Transition 

X(A) 

E(eV) 

Comment 

03 (X‘A.) - 02 (X^Ei) OCP) 

11920.0 

1.04 

Dissociation 

03(X>Ai) - 02(a‘A) 4- OCD) 

3110.0 

3.99 

Hartley continuum 

02 (X^E;) -* OCP) + 0("P) 

2424.0 

5.115 

Herzberg continuum 

02 (X^Eg) - OCD) + OCP) 

1751.0 

7.081 

S-R continuum 

02 (X^E,) - 0 ^ (X^^ -H e 

1028.0 

12.06 

Photoion. continuum 

N 2 (X‘E^) - N(^S) + N(^S) 

1270.0 

9.759 

Dissociation 

N2(X'Ep ^ + e 

795.8 

15.580 

Photoion. continuum 

OCP) -* 0 ^("S) + e 

910.4 

13.618 

Photoion. continuum 

N0(XTI) - NO^(X) + e 

133.8 

9.267 

Photoion. continuum 


Detailed cross sections for individual processes may be found in a number of standard 
references, e.g., Rees [2] and Huffman [4,27]. In this text we briefly discuss absorptive 
phenomenology associated with O 2 and O 3 , the dominant species for atmospheric UV absorption 
above lOOOA. 

An overview of the UV photo-absorption characteristics of O 2 is presented in Figure 8 . 
Note that the figure scans almost eight orders of magnitude in absorption cross section, a. The 
absorption cross section can be related to the altitude of unit optical depth presented in Figure 7 
through the relationship 


I (T^ n^ dh = 1 (2-11) 

where the subscript x denotes the species of interest, n,( is the species density, H is the altitude 
of unit optical depth, and the integral is over altitude h. Even very low O 2 absorptive cross 
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sections can be important given the exponential increase in O 2 density with decreasing altitude, 
Figure 5. 

The feature above 2000A shown in Figure 8 corresponds to an absolution from the 
ground state into dissociative levels of the A electronic state, the we^ forbidden Herzberg 
continuum A very detailed review of this continuum absorption is 

Nicolet and Kennes [28]. There are additional weak Herzberg band absorptions to tiie nght of 
the absorption cutoff shown in Figure 8. These are of marginal importance as discussed in 

Trakhovsky et al. [29]. 

The Schumman-Rungeband system {X% - absorption form the ground state into 

the B electronic state, begins to dominate at wavelengths below -2050 A This band system 
a large number of discrete transitions from and 
rotational states of O 2 , the major transitions of which are delineated in Figure 8. Their proj^ 
specification provides perhaps the most challenging problem m the evaluation of atmosphenc UV 
tSJsmission ^ The state of the art of our understanding in this area has recentiy been addressed 
in a series of seminal articles by Nicolet and Kennes [24,30,31] and Nicolet et al. [32,33]. 
Readers requiring a detailed understanding of these band systems are referred to these articles. 

The Schumman-Runge continuum continues down to ~ 1300 A. Between the termination 
of that system and the onset of photo-ionization at -1026 A there are a senes 
which allow some leakage of UV emissions. These leakage regions ^ 
windows spectral regions where UV radiation can penetrate to lower altitudes. The effects of 
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these window regions are reflected in the structured UV penetration altitudes shown in Figure 7 
between 1000 and 1300A. 


Absorption cross sections for ozone are presented in Figure 9a, b and c, as excerpted 
from Molina and Molina [25]. These are much simpler than those for Oj. The important 
photodissociative process in O 3 is in the Hartley bands which occur at wavelengths below 3100A 
and result in production of electronically excited products, see Table 3. Ozone photodissociation 
at longer wavelengths proceeds through the Huggins bands which produce ground state products. 
Table 3. The UV cross sections for these bands are provided in Figure 9a-c. The Huggins 
bands are sufficiently weak to allow light of wavelength > 3100A to penetrate to the earth s 
surface. Figure 7, but they have been used to monitor the atmospheric ozone concentration. 

As can be seen (Table 3) most of the ultraviolet ionization processes occur at wavelengths 

<J000A, beyond the scope of this text. The one exception is NO. Interestingly, NO ionization 
by window region UV radiation is largely responsible for formation of the D region of the 
ionosphere. Figure 6 . 

There are of course other discrete absorptions, such as in the NO 7 and 6 bands, which 
although unimportant as UV loss mechanisms, do produce atmospheric fluorescence. They will 
be discussed in the following chapter on atmospheric emission. 
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CHAPTER 4. ATMOSPHERIC EMISSION PHENOMENOLOGY 


INTRODUCTION 

This chapter reviews the characteristics of background UV signatures in the atmosphere. 
Atmospheric emissions arise from the interaction of ambient gases with photons, electrons and 
protons as well as through chemical reaction among both neutral and ionic species. As such the 
intensity of emission, and indeed the emitting species themselves, will vary with time of day, 
solar cycle, geomagnetic activity and geographical location. Furthermore, the scattering of solar 
emissions can play a key role in the atmospheric UV signature depending on the viewing 
geometry of observer. This topic has been discussed in an earlier chapter and only the resulting 
scattered emission will be mentioned here. 

There are numerous texts available which discuss UV atmospheric emissions in some 
detail, for example those of Huffman [1] and Rees [2], as well as an excellent recent review of 
atmospheric UV spectroscopy by Meier [3]. These sources have been used liberally in 
developing the present text and the reader is referred to those references for more detailed 
information. 

In this chapter we will review UV emissions in the nightglow, dayglow and aurora 
detailing both emission production mechanisms and generic intensities. Background intensities 
will be expressed in Rayleighs. A Rayleigh corresponds to 10^ photons/cm^-s. Rayleigh units 
may be converted to W/cm^ by multiplying by IQ-® times the photon energy in joules. Division 
by 4ir provides emission intensities in units of sr '. 

THE NIGHTGLOW 

The nightglow is the most straightforward of atmospheric emissions in that, with the 
exception of the Lyman a transitions, the emissions are not directly related to solar illumination 
but rather produced solely by chemical reaction. The concentrations of reacting species are 
however directly related to the insolation history in that these species are formed through 
photodissociation and photo-ionization processes. Thus, the nightglow emissions will not only 
vary spatially and temporally but will also vary strongly with solar activity. 

A generic UV nightglow spectrum, for nadir viewing from 600 km is shown in 
Figure 10, as excerpted from Meier [3]. As denoted in the caption, the figure is a composite 
from several sources and is "representative of moderately active conditions in March 1978 and 
April 1979 near the equator at midnight" [3]. The emission rates and band systems 
corresponding to Figure 10 are provided in Table 4. Again these intensities are highly variable. 
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Wavelength (A) 

Figure 10. Composite UV Nightglow Spectrum Adjusted to Nadir Viewing from 600 km in 
Equatorial Region. All spectral features have been smoothed to 15 A resolution. 
The O 2 and NO molecular, the H geocoronal resonant scattering, and the + e 
O recombination emissions are indicated. The O 2 spectrum was taken from the 
Hennes [4] rocket experiment, the NO spectrum from the Sharp and Rusch [5] 
rocket data, and the O I and H I lines from the STP 78-1 satellite data of 
Chakrabarti et al. [ 6 ] The absolute values of the O 2 and NO bands were obtained 
by normalizing to the Huffman et al. [7] S3-4 equatorial spectrum (after 
converting the S3-4 data to absolute units). (Excerpted from Meier [3]). 

As can be seen the UV nightglow spa:trum is quite sparse consisting largely of neutral 
oxygen transitions, the NO a and 5 bands and the O 2 Herzberg band. The atomic transitions 
result from radiative recombination of O^, i.e., 

O* + e - O* + h>/ (4-1) 

where the excited neutral atom subsequently radiates to lower states in the transitions noted in 
Table 4. 

The NO emissions result from pre-association of N and O atoms presumably through the 
pathway 

N('‘S) + 0(^P) 5=^ NO(aV) NO(C 27 r) (4-2) 

followed by either emission of NO(C^x) to the ground state, the 6 bands, or radiative cascade 
to the A^E"^ state with subsequent emission to the NO ground state, the 7 bands. These 
emissions depend upon the product of the concentration of two atomic species and thus do not 
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Table 4. UV Nightglow in Nadir from 600 km. (Excerpted from Meier [4-3].) 


Species 

Wavelength (A) 

Transition 

Column Emission rate (R) 

O 2 

Total 

Eg (Herzberg I) 

225 

01 

2972 

2 p'‘S - 2 p"'P 

9 

NO 

1900 

CTI - Xn (6 band) (0,0) 

5.5 

NO 

1980 

CH - XTI (6 band) (0,1) 

7.9 

NO 

2055 

CTI - xn (6 band) (0,2) 

6.5 

NO 

2134 

CTI - Xn (6 band) (0,3) 

4.0 

NO 

2219 

CTI - xn (6 band) (0,4) 

2.1 

NO 

2310 

CTI - XTI (8 band) (0,5) 

0.93 

NO 

2406 

CTI - XTI (8 band) (0,6) 

0.38 

NO 

2509 

- X^ (6 band) (0,7) 

0.16 

NO 

2620 

CTI - XTI (8 band) (0,8) 

0.06 

NO 

2262 

- XTI (7 band) (0,0) 

1.8 

NO 

2363 

A^E" - xn (7 band) ( 0 , 1 ) 

2.4 

NO 

2471 

A^E" - XTI (7 band) (0,2) 

3.8 

NO 

2587 

A^^ - XTI (7 band) (0,3) 

1.5 

NO 

2713 

A"E^ - XTI (7 band) (0,4) 

0.5 

01 

1356 

2p"'P -2s*S° 

52 

01 

1304 

2p"'P-3s’S‘’ 

54 

H I 

1216 

ls"S - 2p'P 

1712 

H 1,01 

1026 

Is^S - 2 p^P”, 2 p"^P - 3d^D'’ 

2.3 

01 

989 

2p"'P - 3s''’D® 

2.6 

01 

911 

2 p‘'^P - 00 

34.5 

HE II 

304 

Is^S - 2 p^P° 

0.1-5 


appear at altitudes below ~ 90 km but will radiate significantly over an altitude range larger than 
100 km, see discussion in Strobel et al. [8]. A more spectrally detailed observation of nightglow 
NO band emissions as observed from the S3-4 satellite is shown in Figure 11. 

The O 2 Herzberg emissions arise from the three body recombination of oxygen atoms 

O + O + M + M 
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followed by radiation from the state to the ground state, the Herzberg bands. Since the 
production rate for the state depends not only on the square of oxygen atom concentration 
but also on the total density, this emission feature is more localized, peaking in a narrow altitude 
band around 95 km. A portion of the Herzberg band is also shown in more spectral detail in 
Figure 11. We note that other electronic states can be created in the recombination process and 
that there will also be contributions in the 3400 to 4000A regions from the O 2 Chamberlain 
system, A'^Au -* a'Ag. 



Figure 11. Night Airglow Spectrum from the S3-4 Satellite (Exerpted from Eastes et al. 
[9].) 

THE DAYGLOW 

As would be expected, the dayglow is considerably richer than the nightglow. Of course, 
the nightglow emission mechanisms are also operative during the day, although their intensities 
are necessarily impacted by diurnal variations in species concentrations. During the day these 
latter mechanisms are supplemented by photo-ionization, photoelectron impact and resonant 
photo-excitation processes as well as by scattered and reflected solar radiation. 

A generic nadir view of the earth ultraviolet midmoming dayglow from a viewing altitude 
of 200 km is shown in Figure 11, as excerpted from Meier [3]. This is a composite of several 
disparate measurements and should be viewed as accurate within a factor of two for moderate 
solar activity. The corresponding transition identification and representative intensities are 
provided in Table 5. 
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Figure 12. Complete Earth dayglow spectrum, adjusted to nadir viewing from 200 km at 
midmoming. The various spectral bands defined at the top of the figure are 
the extreme, far, middle, and near-ultraviolet. Regions of absorption by 
oxygen species are indicated by thick horizontal lines; emission bands intervals 
are shown for N 2 and NO, and the stronger emission lines of atomic and ionic 
species are shown. The NUV emission rate was calculated assuming an Earth 
Albedo of 0.3 and a smoothed solar irradiance, the MUV was taken from 
Barth [10], the FUV from Huffman et al. [7] and the EUV from Gentieu et al. 
[11]. (Exerpted from Meier [3].) 

Note the strong dominance of scattered solar light above ~ I 8 OOA in Figure 12. The top 
of the figure delineates the spectral regions of absorption of solar emissions by O 3 and O 2 (see 
Chapter 3). It is these absorption features which produce the step-like structure with increasing 
wavelength. Solar light above ~3100A will reach the surface and thus the intensity at those 
wavelengths are affected by the surface albedo. Solar irradiation between 2000 and 3100A is 
absorbed by O 3 , largely in the stratosphere, while solar UV emission is fully absorbed in the 
mesosphere by oxygen molecules. 

There are of course a number of molecular emission features which underlie the scattered 
solar radiation seen in this nadir view. High altitude side- or up-viewing systems which 
discriminate against solar scattered emissions would see these underlying emissions. 

An example of this is provided in Figure 13, corresponding to a horizontal view of the 
airglow at 150 km. (This figure excerpted from McEwan and Phillips [12] presents unpublished 
data of C. Barth which are commonly referenced, e.g., Meier [3] and Rees [2].) As can be seen 
a number of molecular band systems become apparent as well as a few atomic line transitions. 
Differing excitation mechanisms are operative in producing these emissions. 
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Table 5. UV Dayglow in Nadir from 600 km, (Excerpted from Meier [3].) 


Species 

Wavelength (A) 

Transition 

Column Emission rate (R) 

NJ 

3914 

- x^; 

6700 

Oa 

2500-2900 

Herzberg bands 

- 

Nil 

2143 

2 s 2 p^^S - 2 s" 2 p 2 

300 

NO 

2363 

xn (7 band) ( 0 , 1 ) 

369 

NO 

2262 

^ + xn (7 band) ( 0 , 0 ) 

265 

NO 

2239 

A"E^ - 1 - xn (7 band) ( 1 , 1 ) 

206 

NO 

2216 

A^E^ -H xn (7 band) ( 2 , 2 ) 

82 

NO 

2149 

A^E^ -t- xn (7 band) ( 1 , 0 ) 

752 

NO 

2047 

A^+ - 1 - Xn (7 band) ( 2 , 0 ) 

197 

NO 

2030 

A^^ -t- xn (7 band) (3, 1) 

29 

NO 

2000-2700 

Gamma bands 


Na 

Total 

a^e; - x'e; (vk) 

6820 (excitation only) 

Na 

Total 

a'Hg - X‘E; (LBH) 

4560 

Na 

2000-2400 

Subtotal (LBH) 

273 

Na 

1947 

a'Hg-X'E; (4, 11) 

70 

Na 

1930 

a‘n, - X*E; (3, 10) 

71 

Na 

1856 

a'llg - X‘E; (3, 9) 

95 

Na 

1839 

a'n,-X>E^(2,8), ( 6 , 11) 

100 

Na 

1771 

a‘n, - X'e; (2, 7), ( 6 , 10) 

127 

Na 

1754 

a*n, - X>E^ (1, 6 ), (5, 9) 

113 

Na 

1690 

a‘n, - X‘E^ (1, 5), (5, 8 ) 

116 

Na 

1675 

a'n,-X»E;(4,7),(0,4) 

98 

01 

1641 

2p*‘D-2p’VS*’ 

50 

Na 

1602 

a‘n,-X‘E;(3, 5) 

87 

Na 

1586 

a‘II,-X>E^(2,4) 

73 

Na 

1558 

a‘n,-X'E;(0,2),(4, 5) 

87 

Na 

1531 

a‘n, - X‘EJ (2, 3) 

104 

Na 

1511 

a‘n, - X'E; (4, 4), (1. 2) 

127 

Na 

1495 

a‘n.-X>E^(3, 3). ( 6 , 5) 

109 
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Table 5. UV Dayglow in Nadir from 600 km. (Excerpted from Meier [3].) (Continued) 


Species 

Wavelength (A) 

Transition 

Column Emission rate (R) 

NI 

1493 

2p3"D‘’-3s^ 

91 (e + Na) 

Na 

1465 

a'n, - (1, 1) 

144 


1446 

a'Hg - X‘i:; (3, 2) 

93 

Nz 

1431 

a‘n, - X'E; (2, 1), (5, 3) 

144 

N, 

1416 

a'n. - X‘E; (4, 2). (1, 0) 

207 

N2 

1398 

a'n, - X‘E; (6, 3), (3, 1) 

62 

N. 

1384 

a'n, - X‘E; (2, 0), (5, 2) 

267 

01 

1356 

2 p"*P - 2p'3s'S“ 

1068 


1354 

a'Hg - X'E; (4, 11) 

222 

N2 

1325 

a‘IIg-X‘E; (4, 11) 

200 

01 

1304 

2p4 3p . 2p3353sO 

10498 

Na 

1298 

a'II,-X‘E;(5,0) 

(111) 

Na 

1273 

a'n, - x>e; (6 ,0) 

<70 

Na 

1259 

b'Hg - X'E^ (1, 10) (BH) 

<30 

NI 

1243 

2p'^'>-2p"3s' =“0 

150 

H I 

1216 

ls"S - 2p"P“ 

35000 

N I 

1200 

2 p^‘‘S® - 2p23s^P 

1500 

01 

NI 

1173 

1176-1177 

2p" ‘Da - 3s' 

2p^^® - 2p"(’P)4s ^P 

<160 

NI 

1168 

2 p'"D° - 2p'3d"P 

170 

01 

1152 

2p'' 'D - 3s' 'D® 

150 

NI 

1143 

3p'^®-2p23s^S 

<45 

NI 

1134 

2s^2p' *S - 2s 2p‘"P 

400 

Na 

1110 

bU - X'e; (1,5) 

<50 

NI 

1100 

2p^"D®-2pTP)5s^P 

55 

NI 

1097-1099 

2p^2D® - 2p^fP)4dfP and “F) 

55 

Nil 

1085 

2 s^ 2p^ ^P - 2s 2p^^DO 

500 

N I 

1067-1068 

2 p' ^D® - 2p"(^P)5dC‘'‘‘D and ^ “F) 

<120 

Na 

1058 

bU - X‘E^ (1, 3) 

<120 










Table 5. UV Dayglow in Nadir from 600 km. (Excerpted from Meier [3].) (Continued) 


Species 

Wavelength (A) 

Transition 

Column Emission rate (R) 

01 

1040 

2p" =*P - 2pMs"S® 

60 

Nj 

1033 


(149) 

01 

1027 

2 p" ’P - 3d^D'' 

340 

H I 

1026 

Is'S - 3p'P" 


Na 

1009 

bU - x‘e; ( 1 . 1 ) 

150 

01 

989 

2 p"^P - 2p^(2D®)3s'^D‘‘ 

850 


985 

bU - x‘e; ( 1 , 0 ) 

95 

H I 

973 

Is^S - 4p^P“ 

14 

N I 

964-965 

2 p" "S" - 2p'‘CP)4s^P 

80 

N I 

953 

2 p^ *S° - 2pYP)3d''P 

125 

N II 

916 

2 s 2 2 p^^P - 2 s 2 p^ ^P° 

185 

NI 

910 

2p" - 2p"fP)5s 'P 

90 

N I 

907 

2 p^"S - 2p'“fP)4dWF 

<80 

NI 

887 

2p^ *S - 2pTP)6s"P'P 

<40 

N I 

875 

2p^ “S - 2p2CP)6d'‘P"P 

<35 

N I 

862 

2 p" "S - 2 p W9d"P''P 

<35 

N I 

859 

2p=» “S - 2p"fP)lldW 

<35 

Oil 

834 

2 s' 2 p'"S'’- 2 s 2 p""P 

580 

Nil 

776 

2 s" 2 p^'D - 2 s 2 p=’‘D® 

<5 

N II 

747 

2p^ ‘D - 2p 3s 'P“ 

<4 

on 

718 

2 s" 2 p'''D<’- 2 s 2 p‘"D 

17 

on 

673 

2 p^ ^P" - 2p'CP)3s2p 

6.5 

N II 

671 

2p”P - 2p 3s ^P® 


N II 

645 

2s=' 2p”P - 2s 2p”S® 

7 

on 

644 

2 s^2p'^P®-2s2p‘‘2S 


N II 

629 

2s 2p^’S® - 2s 2pTP)3s*P 

3 

Oil 

617 

2 p^ T)® - 2pTP)3s"P 

60 

on 

601 

2p^"P°-3s'^D 

9 

He I 

584 

ls^‘S - ls2p‘P® 

330 
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Table 5. UV Dayglow in Nadir from 600 km. (Excerpted from Meier [3].) (Continued) 


Species 

Wavelength (A) 

Transition 

Column Emission rate (R) 

Oil 

581 

2 s^ 2p'"P“ - 2s 2p" "P 

<20 

Oil 

555 

2p^2D® - 3s' "D 

15 

on 

539 

2p’V-3s"P 

115 

on 

538 

2s" 2p" "D® - 2s 2p" "P 


He I 

537 

Is" ‘S - ls3p ‘P® 


He I 

522 

ls"'S - ls4p ‘P® 

8.5 

Oil 

515 

2p""D - 2p"("P)3d"P® 


on 

482 

2p""D® - 2p"CP)3d"D 

8 

on 

470 

2p""P® - 2p"(‘D)3d'"D 

<8 

on 

442 

2p""D®-2p"(‘D)3d'"D 

12 

on 

430 

2p"‘'S® - 2p"("P)3d‘'P 

12 

He n 

304 

ls"S - 2p"P® 

5 (Zenith) 



Figure 13. 


Spectrum of the Ultraviolet Dayglow Between 190 to 430 km as Observed from 
a Payload Viewing Horizontally at an Altitude of 150 km. This is unpublished 
data of C. Barth taken during a rocket experiment launched from White Sands, 
NM on June 1969. 
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For example, the NO 7 -♦ and NJ first negative (B^Ey ^ X^Eg) bands result 

from resonant photo-excitation. On the other hand transitions between the nitrogen molecule 
ground state and the triplet states are optically forbidden and thus the N 2 Vegard-Kaplan (A^E^ - 
X‘Ep and second positive (C^iTu -* B^x-g) emissions are produced by photo-electron excitation. 

An expansion of the spectral features of dayglow emission in the 1100 to 1900A region 
as reported by Huffman et al. [7] is shown in Figure 14. The dominant molecular emission seen 
between approximately 1250 and 1700A is the N 2 Lyman-Birge-Hopfield (2‘xg - X’Eg) system. 
This system is also optically forbidden and is produced through photoelectron excitation. 



Wavelength (A) 


Figure 14. S3-4 Satellite Nadir Observation. SA data in VUV near midday (Exerpted 

from Huffman et al. [7].) 

Note that there are also a large number of transitions of neutral and ionized oxygen and 
nitrogen atoms observed throughout the ultraviolet. These emitting states may be created both 
by resonant photo-excitation and by photo-electron excitation. The hydrogen Lyman a emission 
is produced solely by resonant solar scattering. 

As stated in the discussion on nightglow, the altitude dependence of these various 
emissions will be determined by a convolution of concentration profiles, solar flux and 
absorption depths. Thus in an uplooking scenario the relative intensities of different band 
systems will vary with platform altitude and viewing angle. All scattered solar radiation arises 
from altitudes below 100 km. 
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Again, both the dayglow intensities and their spectral variation will vary with solar 
activity local’time and geographic position. Twilight for example is a special case where solar 
illumination does not extend to the highly-scattering lower atmosphere although the thermosphere 
remains fully irradiated. The net effect is that sky radiances drop dramatically at twilight 
although all the basic emission features produced by photon or photo-electron excitation remain. 

An interesting geographical anomaly is the so called tropical UV airglow [13,14] which 
corresponds to enhanced UV emission observed in near equatorial regions in early evenings. 
This emission is believed to result from radiative recombination of O'^ in the F region (see 
discussion in Huffman [1]). 

A detailed review of the variability in the airglow is beyond the scope of this handbook. 
A recent review is provided by Meier [3]. 

THE AURORA 

Auroral emissions result from energetic electron and proton bombardment of the 
atmosphere. These emissions occur at both poles within the auroral ovals delineated 
approximately by latitudes above 70 deg. This bombardment results from the precipitation of 
electrons and protons from the magnetosphere into the atmosphere and thus there is a strong, 
although not well defined, coupling between geomagnetic and auroral activity. (Auroral 
observations are typically coupled to the current magnetic index Kp). 

Auroral precipitation phenomenology, variability and observations are well covered in 
classic texts such as Chamberlain [15] and Vallance Jones [16] and an excellent overview may 
be found in the article by Whalen et al. in the Handbook of Geophysics and the Space 
Environment [17]. In this chapter we will briefly discuss auroral UV emission levels and 

radiators. 

Auroral precipitation is characterized both by the energy of the boinbarding sj^ies and 
their power. The latter quantity is directly proportional to the auroral emission intensities, a fact 
which has led to the quantification of auroral powers in terms of an International Brightn^s 
Coefficient (IBC). This unit is logarithmic in terms of the column intensity of the 0( S -* D) 
transition at 5577A, with an IBC I aurora corresponding to 1 kR emission from that source, an 
IBC II aurora corresponding to 10 kR, etc. Auroral activity does track the solar cycle and these 
emission levels will track solar activity. IBC III or greater auroras are significant events and 
are relatively uncommon. (An interesting review on great auroras, i.e., those that are 
particularly intense or extend to lower latitudes has recently been provided by Vallance Jones 

[18]. 

The energy of the bombarding electrons/protons determine their penetration depth into 
the atmosphere. Since the atmospheric species concentration is variable with altitude, this 
difference in energetics can produce different emissive band systems ratios. In any event, 
auroras rarely penetrate to altitudes below ~95 km. 
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The emitting species in an aurora are the same as those observed in the airglow although 
the relative band intensities may vary, Huffman [1] has provided a useful tabulation of 
representative UV auroral emissions which are reproduced in Tables 6 and 7. The data in Table 
6 are taken from Vallance Jones [16] and are representative of rocket measurements scaled to 
an IBC III aurora. The data of Table 7 are for nadir satellite measurements from altitudes of 
250 to 200 km, and are representative of measurements made during April to September 1978. 

Auroral emissions are highly structured in comparison to the dayglow/nightglow and thus 
can present more of a challenge to systems designs. At high latitudes auroral UV backgrounds 
will far exceed the nightglow and be similar in intensity level to the airglow for nadir viewing. 

The information provided above should provide the system designer a general overview 
of the terminology of UV atmosphere backgrounds, with typical average intensities, spectral 
distributions and variability. Detailed scenarios for specific systems are best defined through 
use of computer simulations. An overview of atmospheric UV models is presented in Chapter 5. 


Table 6. NUV auroral intensities. (Excerpted from Huffman [1].) 


Transition 

X(nm) 

B(kR) 

Comment 

IN (0,0) 

391.4 

60 

IN: 

IN (1,1) 

388.4 

5 


Nj 2P (0,2) 

380.5 

20 

2P: CTI„-B^ng 

N2 2P (1,3) 

375.5 

15 


N2 2P(0,1) 

357.7 

30 


N,2P (1,2) 

353.7 

15 


N^ 2P (0,0) 

337.1 

20 


Nj 2P (1,0) 

315.9 

3 


N^ 2P (2,0) 

297.0 


blend w/0 1 

01 

297.2 

2 

2p" "P - 2p^ ‘S 
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Table 7. MUV and FUV auroral intensities. (Excerpted from Huffman [1].) 


Transition 

X(nm) 

B(kR) 

Comment 

Nj VK (0,6) 

276.1 

0.4 

VK: - X‘E/ 

Nj VK (0,5) 

260.4 

0.2 


VK (0,4) 

246.2 

0.2 


VK (1,4) 

237.8 

0.1 


Ni VK (0,3) 

233.3 

0.1 


VK (1,3) 

225.8 

0.9 


Nil 

214.3 

0.2 

2s^p^ 'P - 2s2p^ 

N 2 LBH Av = 8 

205.- 

0.1 

LBH: a'Hg-X'E/ 

N 2 LBH Av = 7 

195.- 

0.2 


N 2 LBH Av = 6 

184.- 

0.2 


N 2 LBH Av = 5 

176.- 

0.4 


N 2 LBH Av = 4 

167.- 

0.3 


N 2 LBH Av = 3 

160.- 

0.2 


NI 

149.3 

0.4 

2p^ - 3s 'P 

N 2 LBH (1,1) 

146.4 

0.05 


N 2 LBH (2,1) 

143.0 

0.03 


N 2 LBH (1,0) 

141.6 

0.07 

also LBH (4,2) 

N 2 LBH (2,0) 

138.4 

0.08 

also LBH (5,2) 

01 

135.6 

0.6 

2p" "P" - 3s 'S 

N 2 LBH (3,0) 

135.4 

0.08 

est., blend 0 I 

Nj LBH (4,0) 

132.5 

0.14 


01 

130.4 

15. 

2p‘' "P” - 3s "S 

N 2 LBH (5,0) 

129.8 


blend 0 I 

N 2 LBH (6,0) 

127.3 

0.08 


H Lyman a 

121.6 

3. 

Is - 2p ^P 

NI 

120.0 

0.5 

2p^ “S” - 3s "P 

NI 

116.8 

0.1 

2f "D” - 3d ^ 

01 

115.2 

0.01 

2p‘' 'D - 3s' 'D” 

NI 

113.4 

0.09 

2p" "S” - 2p" 
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CHAPTER 5. ATMOSPHERIC SCATTERING OF SOLAR UV RADIATION 


INTRODUCTION 

As the solar UV radiation traverses the atmosphere it will not only be absorbed, as 
discussed in Chapter 3, but also scattered by atmospheric atoms, molecules and aerosols. The 
scattering process produces a change in direction of a light ray, thus providing both loss and 
source terms to the equation of radiative transfer. Multiple scattering can be an important effect 
during light transmission through the atmosphere. Because of this, computer models involving 
two- and three-dimensional solutions of the radiative transfer equation are generally required to 
specify the scattered solar light distribution. 

This chapter will first review the various forms of atmospheric scattering of UV light and 
then discuss the computer models available for the specification of atmospheric ultraviolet 
backgrounds. No discussion of the radiative transfer equation and its solution techniques will 
be presented. Information on this subject can be found in many standard texts, e.g., 
Chandrasekhar [1], Kondratyev [2], Brasseur and Solomon [3], and Fenn et al. [4]. 

ATMOSPHERIC SCATTERING PROCESSES 

Atmospheric scattering of solar ultraviolet light occurs through several distinct processes. 
Atmospheric molecular species absorption followed by subsequent re-emission, as discussed in 
Chapter 4, is a form of "non-resonant" scattering. Here, in the absence of collisional quenching, 
the absorbed light at wavelength X is re-emitted isotropically at a series of wavelengths X + AXj, 
as determined by the details of the radiating band system. Chapter 2. Huffman [5] has provided 
a brief review of important molecular band systems providing non-resonant scattering, the 
majority of which are described in Chapter 4. In the UV these include the first negative 
system, the OH(A-X) transitions and the NO y bands. 

In the case of solar UV absorption by atomic species, the number of radiative transitions 
will be small, limited to allowed transitions among the multiplets of the upper and lower states. 
To first order the wavelength is preserved and these processes may be termed "resonant" 
scattering. (Note we exclude absorptions which can lead to excited state-excited state emission 
from this discussion.) In this instance the transition absorption strengths can be so high that 
multiple scattering will be important even at the high altitudes where atomic species are present. 
The techniques used to analyze high altitude resonant scattering radiative transfer are discussed 
by Meier [6]. Dominant UV resonant scattering occurs in the oxygen triplet at 130.4 nm and 
the hydrogen Lyman a transition at 121.6 nm. Both of these systems can produce scattered 
radiation levels of 10 to 20 kR [5]. Note the hydrogen Lyman a absorption dominantly occurs 
at high altitudes, producing the earth’s hydrogen geocorona (see photos in Meier [6]). The 
combination of high altitude absorption and multiple scattering allows the solar Lyman a 
emissions to penetrate the earth’s nightside, as mentioned in Chapter 4. 

There are also weaker atomic absorptions which can provide scattered radiation in the 
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ultraviolet. These include for example, the oxygen 135.6 nm doublet and the hydrogen Lyman B 
transition at 102.5 nm. Of course these more weakly absorbing features can be dominat^ by 
other excitation mechanisms such as photo-electron excitation. This effect is graphically 
demonstrated in Figure 15 which shows the limb measurements of three UV spectral features 
versus altitude for a near overhead sun. The 130.4 nm feature is more representative of the 
local 0-atom density profile (see discussion in Meier [6], however) than the 135.6 nm feature 
whose interpretation is complicated by multiple scattering [6,7]. 



Figure 15. Limb Profiles for 01 130.4 nm, 01 135.6 nm and NI/LBH 149.3 nm from 
HUP Shuttle Flight (day, midlatitude, near overhead sun). (Exerpted from 
Huffman [5].) 


A more classical form of scattering, molecular Rayleigh scattering, becomes impoimt 
at lower altitudes. This scattering results from the electromagnetic interaction of the light with 
air molecules. The cross section for molecular Rayleigh scattering is given by: 


24 '^ 


m ^-1 
m^ +2 


D 


(5-1) 


where N is the local number density, X is the wavelength, D is the depolarization factor 
(typically 1.06 for air) [3,4] and m is the index of refraction of air, given approximately as: 


m = 1 + a(N/N^ 


(5-2) 


where a is the Dale Gladstone coefficient (which has a slight wavelength dependence) and N„ 
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is Lx)schmidt’s number. 


Note that molecular Rayleigh scattering strongly favors shorter wavelengths. Indeed this 
process produces the blue sky background. For point of reference the cross section at 250 nm 
is 1.24 X 10'^* cm^ a small value in comparison to those for allowed optical absorptions. 
Nonetheless, molecular Rayleigh scattering in the stratosphere and above is the dominant source 
of radiance scattered to space in the wavelength region of approximately 200 nm to 320 nm (see 
Figure 12 in Chapter 4). 

Molecular Rayleigh scattering provides for scattered light over a wide distribution of 
angles. The angular scattering distribution is specified approximately by the relationship 

f(0) = 1 + cos^e 

where 0 is the scattering angle. Thus, forward and backward scattering are equally probable 
while the scattering distribution exhibits minimums at 90 and 270 deg. More detailed 
discussions on molecular Rayleigh scattering may be found in many sources including classic 
texts by Kondratyev [2] and Goody [7]. 

Aerosols provide another important source for scattering of solar light. Again these are 
largely important at lower altitudes although noctilucent clouds and/or polar mesospheric clouds 
may be found in the mesosphere. Indeed, the presence of these latter clouds has been shown 
to affect limb measurements of MUV radiance, easily dominating Rayleigh scattering (see the 
discussion in Huffman [5]). 

The scattering cross sections for aerosols are dependent on both particle size and index 
of refraction and may be calculated through use of Mie theory [8] under the assumption of 
spherical particles. For constant index of refraction the controlling parameter in Mie theory is 
the size parameter, p 


p = 2Tr a/X 


(5-4) 


where a is the particle radius. For particle sizes much smaller than the wavelength, p < 1, the 
scattering behavior is similar to Rayleigh scattering and exact in the limit of p-^. Alternatively 
for p > > 1, the scattering obeys geometric optics. The intermediate regime, often denoted as 
the Mie regime generally requires full evaluation of the Mie theory. 


As the size parameter proceeds from the Rayleigh to the geometric limit the angular 
scattering distribution goes from near isotropic to highly forward scattered. This is shown in 
Figure 16a and b, excerpted from Kondratyev [2] which compares the scattering distribution in 
the Rayleigh limit to that predicted from Mie theory for a perfectly reflecting sphere (m = oo) 
as a function of size parameter. The scattering distribution of atmospheric aerosols clearly will 
be controlled by their size distribution function which will typically range throughout the 
Rayleigh and Mie regimes. 
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90 deg 




Odeg 


Figure 16. (a) Rayleigh Scattering Function; (b) Scattering Function of Opaque Absolutely 

Reflecting Particles 

Atmospheric aerosols are quite variable with altitude, geographical location, season, etc. 
For example. Figure 17 describes the variation of aerosol behavior with altitude. Different 
aerosol types will, of course, have differing indices of refraction and size distributions. A useful 
description of this variability is provided in Fenn et al. [4]. Aerosol scattering is particularly 
important in the stratosphere and troposphere. Much of the solar UV spectrum, below 
»300 nm, is largely attenuated prior to reaching these altitudes. Nonetheless, aerosols present 
an important scattering source, particularly for low altitude UV viewing. 

COMPUTER MODELS 

In general, detailed computer models are required for the prediction of UV backgrounds, 
particularly because of the complexities introduced by multiple scattering. At present there is 
no one code available which can predict UV backgrounds between 100 to 400 nm at all altitudes. 
(There is one under development however. See discussion on AURIC below.) There are 
several codes available which cover a wide range of the required parameter space. 

The LOWTRAN code has for many years been the workhorse for prediction of 
atmospheric backgrounds at low spectral resolution, 20 cm '. The most recent embodiment of 
this code is LOWTRAN 7, Kneizys et al. [9]. 
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Figure 17. Characteristics of Atmospheric Aerosols. (Excerpted from Fenn et al. [4].) 

LOWTRAN allows the prediction of atmospheric transmittance at low spectral resolution 
at wavelengths down to 200 nm including effects due to multiple scattering. The code embodies, 
among other things, the choice of six model atmospheres, a wide variety of aerosol and cloud 
models, general viewing geometries and variable solar parameters. The results are of course 
very specific to the specification of solar illumination conditions. Solar light will in general 
penetrate at a zenith angle, x, i e., angle relative to normal incidence which is defined by 
Brasseur and Solomon [3] as 


cos(x) = cos(<^) cos(5) cos(H) + sm<f> sin6 

where <f) is the latitude, 5 is the solar declination angle (seasonal) and H is the hour angle. This 
latter quantity is 0 deg at local noon and increases by 15 deg for every hour beyond noon. This 
quantity x is required input to LOWTRAN 7, and indeed to any atmospheric transmittance 
code. LOWTRAN 7 does have some significant limitations in predicting UV backgrounds. 
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Specifically it does not include any atmospheric emissions, e.g., airglow, fluorescence, is limited 
to altitudes below 100 km and cannot be applied for wavelengths < 200 nm. Nonetheless it is 
a useful workhorse for reliably predicting UV backgrounds within its operational domain. An 
example of LOWTRAN 7 prediction contrasted with S3-4 satellite data is provided in 
Figure 18 [9]. As can be seen the comparison between model and data is quite good. 

A higher resolution version of LOWTRAN has also been developed [11]. MODTRAN 
provides 2 cm ‘ resolution capability while preserving the primary LOWTRAN capabilities. 
These codes are available from the National Climatic Data Center, NOAA, Environmental Data 
Services in North Carolina. 

Another generally available "sky radiance" code, although limited to UV/visible 
transmittance, is UVTRAN [12]. Like LOWTRAN, it emphasizes lower altitude applications. 
It utilizes different aerosol parameterizations and includes NO 2 and SO 2 absorptions. This code 
is available through the U.S. Army Atmospheric Sciences Laboratory, White Sands, NM. 

The aforementioned codes are user friendly, readily accessible and even available for use 
on PCs or PC clones. There are several other specialists’ codes in use for predicting 
atmospheric UV radiances. Perhaps the most well known of these is the Naval Research 
Laboratory atmospheric radiance code LIMB [13,14] which includes dayglow down to 80 nm 
and Rayleigh scattering for wavelengths above 200 nm. There is also a sp)ecialized version of 
this code which calculates limb profiles of radiance from the oxygen atom resonance transition 
of 130.4 nm. 



Figure 18. Comparison of LOWTRAN 7 model (solid curve) and S3-4 satellite data (dashed 
curve) for UV radiance. Solar zenith angle (SZA) is 24 deg. (Excerpted from 
Huffman et al. [10].) 
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This code also provides good agreement with satellite observations. Figure 19 presents 
a comparison of LIMB code predictions [14] with recent satellite measurements [15] for a 
tangent altitude of 50 km. At this altitude, indeed below 90 km, the sky background due to 
Rayleigh scattering exceeds that of atmospheric emission and the code prediction can be seen 
to be quite reliable. Similar comparisons with data for higher altitudes, in the airglow dominated 
region, have also been presented by Strickland et al. [14]. At these altitudes the comparisons 
are fair although clear discrepancies are observed at some wavelengths. 



Figure 19. Measured and Calculated Spectral Radiances at a Tangent Altitude of 50 km 
and a Solar Zenith Angle of 50 deg. Units are MegaRayleighs/nm which 
come from scaling the intensity (photons cm'^ s ' sr' nm ') by 4T/10'^ 

(Exerpted from Strickland et al. [14].) 

A very detailed model for the prediction of UV backgrounds, AURIC, the Atmospheric 
Ultraviolet Radiance Integrated Code is presently being developed at the Phillips Laboratory 
Geophysics Directorate under the direction of Dr. R.E. Huffman. Primary support is being 
provided by Computational Physics Inc., who also have played an important role in developing 
and exercising the Naval Research Laboratory LIMB code. 

Planned AURIC capabilities are nicely described in Huffman [5]. The code will initially 
emphasize the spectral region of 100 to 400 nm with spectral resolution of 1 to 2 cm '. A 
detailed UV transmission model will be developed building from the LOWTRAN 7 capabilities. 
More advanced model atmospheres, such as MSIS 86 , will be interfaced along with detailed 
Schumman-Runge band absorption, resonant line multiple scattering and detailed fluorescence 
modeling, e.g., NO (7 and 5 bands), which is particularly important for predicting twilight 
backgrounds. The model will also include the appropriate chemistry to predict atmospheric 
airglows and, ultimately, auroral emissions. 
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The atmospheric chemistry/transmission modules, are necessarily complex, given the 
wealth of phenomenology described in earlier chapters. Figure 20 provides an overview of the 
components of AURIC 1.0, which was recently reviewed by Link et al. [16]. The model is 
presently limited to optically thin transmissions but includes an ion-neutral chemistry model and 
allows specification of appropriate geophysical parameters. 

Figure 21 provides a comparison of AURIC predictions for the optically thin oxygen 
atom 135.6 nm atmospheric emissions compared with measurements taken from the Space 
Shuttle in 1982 using the Horizontal Ultraviolet Program (HUP) sensor [17]. Comparisons 
between prediction and data for two widely different solar angles are seen to be quite reasonable. 

In sum, although significant model development and validation remains to be performed 
it appears that state-of-the-art UV atmospheric radiance models can provide an adequate 
representation of atmospheric UV backgrounds. Although at present there is no general user 
friendly code available for predicting UV backgrounds, i.e., LOWTRAN 7 is limited to lower 
altitudes without airglow, the planned development of AURIC should fill this void. 
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Figure 20. Overview of non-LTE Thermospheric AURIC. (Excerpted from Link et 
al. [16].) 
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Figure 21. HUP Horizon Scans (up and down) of 135.6 nm Oxygen Atom Emission 

Observed from Shuttle Flight STS-4 at a Solar Zenith Angle of 12.2 (upper) 
and 72.7 (lower) deg and Overlaid with the AURIC Version 1.0 prediction 
(broken line). (Excerpted from LeBlanc et al. [17].) 
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CHAPTER 6. DOWNLOOKING BACKGROUNDS 


INTRODUCTION 

Substantial progress has been made in our understanding of the ionosphere and 
thermosphere over the last decade. New and improved instrumentation has been developed for 
sensing the ultraviolet wavelength region from satellites, and it has been demonstrated that UV 
atmospheric radiance, far UV auroral imagers, and extreme UV solar flux measurements can 
be us^ to characterize atmospheric compositions and emissions. Huffman [1] calls this the New 
Ultraviolet Space Weather Systems concept. He suggests a future network of satellites and 
ground based sensors which will give constant updates on 100 to 1000 km "weather" conditions 
as they change because of changes in the radiation and particle input from the sun. A space 
weather system will include models of important phenomenology in the form of codes which 
will, based on continuously updated remote sensing inputs, predict electron concentrations and 
expected emission in the 100 to 650 nm wavelength region. This code will likely be based on 
the Atmospheric Ultraviolet Radiance Integrated Code (AURIC) currently under development 
by the P hilli ps Laboratory Geophysics Directorate. See Refs. 6-2 and 6-3 for recent updates on 
the AURIC code. 

This chapter contains a review of the literature of the past several years and emphasizes 
recent developments in remote sensing instruments, as well as information about nightglow, 
dayglow, and auroral emissions which has been obtained from those instruments. The 200 to 
300 nm waveband of interest to the remote sensing of missile plumes has been emphasized. 

During the past several years, UV imaging has become a standard method for observing 
the earth and the earth limb. CCD detector arrays have made it practical to do high resolution 
UV imaging from space or even a rocket probe. Imaging adds another physical dimension to 
observations and, of course, creates an enormous amount of data for resolving the spatial 
structure of emissions. It permits a new level of understanding for, in particular, auroral forms 
and spatial extent of other atmospheric emissions. 

Spectrometers have been increased in spectral feature resolving power to sub-Angstrom 
wavelength resolution permitting clearer identification of emitting species. Photometers have 
improved spatial resolution and greater sensitivity for identifying lower order features in the 
airglow and aurorae allowing better definition of species concentrations in the atmosphere, 
including altitude profiles of electron densities. 

The fact that many types of instruments are now flown on the same satellite and operated 
simultaneously in a coordinated fashion has dramatically enhanced the utility of atmospheric 
emission data. The Arizona Imager/Spectrograph (AIS) [4] and the Ultraviolet Plume Instrument 
(UVPI) [5] and Imaging Spectrometric Observatory (ISO) [6] are good examples of the current 
state of imaging measurement capability. For example, with an imager and a spectrometer, a 
spatial feature in an image can be further examined with a high resolution spectroscopic line scan 
at selected locations in the image. Furthermore, a satellite can take a sequence of images in 
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rapid succession, with a long observation window or return to approximately the same viewing 
location and geometry some time later which permits the time development and changes in 
emitting features to be observed. From these time-dependent measurements the spatial extent 
and altitude of features can be estimated. Both length scales and time constants of the emission 
features can be determined. 

Carbary reviewed the existing data base of UV and visible observations from satellites 
in a presentation at a UV/VIS Special Topic Meeting on 10 September 1991 under BMDO 
(SDIO) sponsorship [7]. Missions potentially contributing to atmospheric UV data bases are 
listed in Table 8 . 


Table 8 . Selected Orbital Observations Missions 
(Greatly expanded from Ref. [7])_ 


Sponsor 

Orbital Missions 

BMDO/SDIO 

Delta 180, Delta 181, Delta Star, VUE, CIRRISIA, AIS, UVPI 

Future: Clementine, UVISI 

NASA 

OGO, Atmospheric Explorers, Solar Mesospheric Explorer, Dynamics 
Explorers, ISO, Nimbus, Polar, several STS Missions, TOMS, SSBUV, 
UARS 

Future: SSBUV, EOS 

Air Force and Navy 

P78-1, S34, DMSP, HiLat, Polar Bear (AIRS), HUP, UVLIM 
HIRAAS/Mustant, FUV, (others) 

Future: AURA, RAIDS, GIMI, SUSSI, SSULT, DMSP, 00AM, POAM 

Foreign 

ISIS2, Meteor, ESRO, TDl, Kyokko, Viking, SPOT, Akebone 


The objective of most of the work documented in the literature is to further the scientific 
understanding of the earth’s atmosphere. In this chapter, a review of recent literature is 
completed from the point of view of emissions that a space-based surveillance platform would 
see for a background with anything from a nadir to limb view, while trying to identify the plume 
of a missile in boost phase. Papers were selected because they contained applicable data in the 
200 to 300 nm wavelength range or because they described methods for using data to support 
the target acquisition function. 

DAY AND NIGHT AIRGLOW 

The spectral region between 2(X) and 300 nm is most useful for remote sensing of rocket 
launches because most of the solar radiation is absorbed by ozone and the earth appears black 
from above. This eliminates much of the surface and cloud features which are so important at 
many other wavelengths. The incredible complexity of the far UV region could also be avoided, 
although much structure still exists in the 200 to 300 nm range (see Chapter 4, Figures 11 and 
13). The principal contributors of radiation are the NO 6 and 7 bands, the N 2 Vegard-Kaplan 
bands, and the O 2 Herzberg I, II, and III bands. Large differences exist, of course, between the 
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radiation levels of night and day airglow, and the actual emission details depend on the 
composition of the atmosphere. For night airglow, this means the recent history of solar 
irradiation and chemical reactions occurring the previous day and at night. For day airglow, the 
additional complications of solar flux and absorption depths of solar radiation as a function of 
wavelength all combine to create the current airglow. 

In the decade between the late seventies and the late eighties there were relatively few 
new sources of data on atmospheric emissions in the 200 - 300 nm region, but further 
understanding of existing data was obtained through model development and more detailed and 
thorough analysis of existing data. 

In an early paper on remote sensing of the ionosphere, Meng et al. [8] suggested a 
strategy of using ultraviolet optical measurements and in-situ ion concentration measurements 
for constantly updating input information to a detailed atmospheric model which would predict 
the atmospheric electron density as a function of altitude. For the daytime mid-latitude 
ionosphere where the main source of ionization is solar radiation, emission lines in the far 
ultraviolet were recommended to indirectly measure the O/Nj density ratio and establish an 
electron density profile. The suggested FUV wavelength is 135.6 nm. For the nighttime mid¬ 
latitude region, 630 nm emission from recombination is recommended in combination with 
135.6 nm emission. In the auroral region in daylight, solar radiation and auroral charged 
particle precipitation contribute about the same order of magnitude of ionization. In the 
nighttime more than 90% of the ionization is caused by incoming charged particles. Since 
electrons of different energies are absorbed at different altitudes a ratio of measured auroral 
spectral features such as 630 and 391.4 nm could be used to determine electron energies and 
total flux levels in auroral regions, establishing an electron density profile with altitude. 

The recommended spectral features are summarized in Table 9, excerpted from Meng 
et al. with estimated ranges of emission rates. It is interesting that these features are not in the 
200 - 300 nm range. A supplemental reference list of recent work emphasizing neighboring 
wavelengths, particularly the far ultraviolet (FUV) is included at the end of this chapter. 

The ability to perform remote sensing in the 200 - 300 nm region clearly depends on 
understanding spectral features in that region and neighboring regions. In fact one might 
continuously monitor emissions in other regions in order to determine the "state" of the 
ionosphere for a continuous prediction of the background radiation to be expected at 200 - 
300 nm. 

At the BMDO UV/VIS Special Topic Meeting on 10 September 1991, Don Anderson 
provided an excellent review of the current state-of-knowledge of the UV attenuation 
problem [9]. Orbital platforms can probe altitudes down 18 - to 30 km depending on 
wavelength/bandpass and the local ozone column density. His conclusion was that we 
understand the composition and chemistry, but do not know the dynamics as well. In particular 
we have a poor understanding of the clutter in the auroral oval, the Power Spectral Density 
distributions of auroral features, and the structure of bright Polar Mesospheric Clouds which can 
have 10 kR/nm intensities. Ozone variability will also cause clutter that will have diurnal and 
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seasonal dependencies. 


Table 9. Nominal Ranges of Column Emission Rates in Rayleighs as Observed from 
~ 800 km Altitude (Excerpted from Ref. [8]) 


Feature 

Dayglow 

Low and Mid- 
Latitude Nightglow 

Auroral Region 

130.4 nm 

1,000 - 20,000 

0.2 - 200 

1,000 - 10,000 

135.6 nm 

100 - 3,000 

0.1-200 

100 - 1,000 

NjLBH 

5-200 

« 

10 - 1,000 

391.4 nm, 
337.1 nm 


? 

10 - 60,000 
(night only) 

630 nm 

* 

3-900 

10 - 10,000 
(night only) 

* Lack of entry indicates feature is not applicable in given region. 


Sharp and Siskind [10] analyzed 3.5A resolution spectrometer data from a 1984 rocket 
launch at White Sands Missile Range. Details of the ultraviolet nightglow in the Earth’s limb 
at 90 to 1 10 km tangent altitudes were obtained from 267 to 304 nm and are shown in Figure 
22. The resolution is sufficient in these measurements to identify clearly the O 2 Herzberg I and 
II band systems; resolution of the Herzberg III bands is also suggested. These measurements 
were taken during a period of high geomagnetic activity and during the Orionids Meteor shower. 
Some emission at 285.2 nm was suggested to be the Mg I resonance line indicating significant 
amounts of magnesium in the upper atmosphere from the vaporized meteoric solid material. 

A more recent rocket experiment measured limb UV fluorescent emissions of NO in the 
lower thermosphere. The 1989 sounding rocket launch from Poker Flat, AK carried a high 
resolution UV spectrometer which viewed the limb dayglow from between 90 and 185 km 
altitude in the 212 to 250.5 nm wavelength range with sub-Angstrom resolution. Eparvier and 
Barth [11] developed a self-absorption model for NO and applied it to the (1,0)7 band 
observations. They analyzed the rocket data assuming two conditions: (1) the atmosphere is 
optically thin at the NO (1,0)7 band and (2) the NO is self-absorbing at that wavelength. They 
demonstrated that the second is clearly correct for altitudes below 120 km from a careful 
analysis of these high resolution data. Their conclusions are demonstrated in Figures 23 and 24. 
They point out that ignoring this self-absorption of NO can lead to underestimating the NO 
concentration below 120 km altitudes. Recent analysis of the UV Camera data from the AFP- 
675 mission on STS-39 [12] and from the rocket-borne MUSTANG spectrometer also exhibit 
this self-absorption. 
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Figure 22. (a) The data (solid line) obtained from the average of 41 spectral scans 

obtained while the field of view scanned the limb from approximately 90 to 
110 km. Synthetic spectra for the Herzberg I, II, and III and the Nj VK are 
summed together (dotted line) to compare with the data, (b) The individual 
synthetic spectra (on expanded verticil scale) for the Herzberg I (dotted line), 
Herzberg II (bold solid line) and Herzberg III (thin solid line) band systems. 
The two arrows label the Herzberg III (6,2) band at 2815A and the Herzberg 
II (7,2) band at 2913A. (Excerpted from Sharp and Siskind [10].) 
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Figure 23. Slant column emission rates for the NO (1,0) 7 band during the (a) upleg and 
(b) downleg of the flight. The crosses are the measured emission rates. The 
solid lines are the emission rates expected if the band were optically thin, and 
the dotted lines are the calculated self-absorbed emission rates. (Excerpted from 
Eparvier and Barth [11].) 
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Figure 24. Spectral fit of the self-absorbed NO (1,0)7 at (a) 109.5 km and 

(b) 93.5 km altitude. The solid lines are the data, the dashed lines are the 
expected optically thin spectra, and the dotted lines are the calculated self- 
absorbed spectra. (Excerpted from Eparvier and Barth [11].) 
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Huffman et al. [13] analyzed relatively old but valuable data in the 200 - 290 nm 
wavelength region taken in 1978 with the S3-4 satellite, viewing toward the center of the Earth. 
The LOWTRAN 7 transmission and radiance code calculations were in excellent agreement with 
the mid latitude daytime measurements (see Chapter 5, Figure 18). But the LOWTRAN 7 code 
does not include airglow and fluorescence emission and does not accurately describe the data 
which were taken under twilight conditions. They point out that the recent application/extension 
of LOWTRAN capabilities down to 200 nm in the ultraviolet included (1) atmospheric 
absorption by ozone, (2) molecular oxygen absorption in the Herzberg continuum and in the 0-0 
and 1-0 Schumann-Runge bands, and (3) appropriate cross sections for Rayleigh scattering. 

The onset of code failure under twilight conditions is shown in Figure 25 which is 
directly comparable to Figure 18 except that the solar zenith angle has increased to 94 deg. As 
the solar scatter decreases the total radiance falls dramatically and the familiar peaks due to NO 
and O 2 emission rise above the LOWTRAN 7 predictions between 200 and 290 nm. If 
LOWTRAN 7 were to be used for modeling background emissions for nighttime remote sensing 
applications, these NO and Oj contributions would have to be added. 



Wavelength (A) 

Figure 25. Comparison of LOWTRAN 7 model (solid curve) and S3-4 satellite data (dash 
curve) for UV radiance. Solar zenith angle (SZA) is 94 deg. Dashed lines are 
measured radiances. 

Trakhovsky et al. [14] have pointed out that both the LOWTRAN 7 and UVTRAN codes 
include O 2 continuum absorption but do not account for O 2 atmospheric absorption in the "solar 
blind" 230 - 290 nm region. They performed ground measurements of O 2 attenuation at 
relatively broad bands centered at 252, 255, and 264 nm yielding much greater O 2 absorption 
coefficients which they attribute to Herzberg I line absorption. These results are only important 
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at lower altitudes and they could be influenced by particulate scattering since they were obtained 
from near ground level path lengths. 

Attempting to understand better the chemical reactions and numerous emissions which 
produce the ultraviolet nightglow, Hastes et al. [15] analyzed S3-4 satellite data taken in 1980 
in the 160 - 295 nm wavelength range. They suggest that remote sensing of UV radiation in this 
range can be utilized to evaluate the concentration of atomic oxygen and nitrogen; which it is 
important to determine since it is involved in so many chemical reaction based emissions. The 
S3-4 satellite data were interesting to study because they included simultaneous O 2 and NO 
emissions over the same observation paths and the data were taken at sufficient sensitivity for 
high resolution observations at night. The prominent O 2 Herzberg I band emissions are 
produced by a three-body recombination of atomic oxygen while the other important NO 
nightglow is caused by a recombination of atomic nitrogen with atomic oxygen producing the 
NO 6 and 7 band emissions as noted in Chapter 4. Regardless of the success or failure of 
obtaining O and N concentrations in the atmosphere, these 1980 S3-4 satellite observations 
reduced in this way provide a quantitative measure of the 200 - 300 nm nightglow. The 
composite plot with background removed and presented in Rayleighs is shown in Figure 26 
(repeated from Chapter 4, Figure 11). 

The O 2 Herzberg emission peaks around 95 km while the NO emission is a maximum 
around 150 km. The S3-4 satellite was nadir viewing at altitudes ranging from approximately 
200 - 270 km when these data were obtained. 



Figure 26. Night Airglow Spectrum from the S3-4 Satellite (Excerpted from Hastes et al. 
[15].) 
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By the late 1980’s, imaging technology permitted fairly routine satellite UV images of 
the earth and earth limb. In early 1988, the Delta 181 mission launched a satellite which 
performed wavelength measurements of airglow in the 180 - 320 nm region. Measurements 
were made of the earth limb at noon, midnight, dawn and dusk, with simultaneous observation 
of the UV earth limb by an imager and spectrographs. The satellite pitched up and down 
observing tangent angles at altitudes of 100 - 250 km. The earth limb emissions were 
characterized vertically and spectrally. The results show that the UV nightglow is dominated 
by O 2 Herzberg I bands while the noon, dusk, and dawn glows are mainly due to solar-driven 
NO 7 band radiation. 

The limb viewing instruments permit a quantification of emission as a function of 
altitude. Strickland et al. [16] have analyzed these limb data at noontime solar levels. An 
optical backgrounds model was used which describes Rayleigh and aerosol scattering of sunlight 
as well as thermospheric emissions. The tangent column emission rate is given as a function of 
altitude from 0 to 80 km in Figure 27; for two 10-nm wide wavebands centered at 215 and 
295 nm. These altitude emission profiles reach a maximum at around 50 km altitude where 
ozone and molecular oxygen begin to absorb large amounts of radiation. Variations with latitude 
and season in these profiles are expected. 

At altitudes above 90 km, Rayleigh scattering of sunlight no longer dominates at 
wavelengths above 200 nm and dayglow becomes prominent. The dayglow emissions have lots 
of structure which becomes clearer at the higher altitudes although the overall emission levels 
decrease with further increases in altitude. This is shown by Figure 28, which is a comparison 
of tangent column emission rates at 100, 150, and 200 km with a solar zenith angle of 50 deg. 
The models compare favorably with the data particularly in the 200 - 300 nm wavelength region 
although the measured emission rates are higher than predicted. 



Column Emission Rate (MegaRayleighs) 


Figure 27. Measured and Calculated Limb Profiles over 10 nm Bands Centered at the 
Designated Wavelengths. (Excerpted from Strickland et al. [16].) 
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SZA = 50' 




Figure 28. Measured and Calculated Spectral Radiances at MUV Wavelengths and at 
Tangent Altitudes of 200 km (upper panel), 150 km (middle panel), and 100 km 
(lower panel). (Excerpted from Strickland et al. [16].) 
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The 1988 Delta 181 satellite data were also analyzed by Carbary and Meng [17] and 
produced some interesting comparisons of limb radiance profiles at different times such as noon, 
dusk, dawn, and midnight. These results give examples of the daily range of radiation levels 
seen in the earth limb. Figure 29a from Carbary and Meng shows the rapid changes in limb 
radiances at dusk over the 180 to 310 nm waveband. This is contrasted with Figure 29b for the 
same waveband at noon where there are almost no changes with solar zenith angle. The altitude 
profiles at midnight in the 180 to 310 nm waveband are included for comparison in Figure 29c 
where the Oj Herzberg I band emissions above 250 nm dominate the nightglow as discussed 
earlier. Table 10 summarizes the dusk, dawn, noon, and midnight radiation levels observed. 

Anderson, et al. [18] further analyzed the UV dayglow data from Delta 181 utilizing an 
improved model of noontime airglow emissions. The model now includes a description of 
"background" radiation due to off-axis Rayleigh scattering of sunlight from lower in the 
atmosphere. This was particularly important at target altitudes below 90 km. The data were 
analyzed by comparing with predictions of scattered sunlight and calculated dayglow spectra. 
This is a superior method than subtracting the background from the data and then comparing to 
the modeled dayglow. 

In March 1992 the Imaging Spectrometric Observatory (ISO) was launched on the 
ATLAS-I mission. The ISO is a group of grating spectrometers using CCD arrays for detectors 
to obtain spectral and spatial information simultaneously. Owens et al. [6] reported the first 
comprehensive spatially-resolved spectral survey of nighttime airglow from 260 to 832 nm. 
They studied data from the 275 to 300 nm range to determine the variation with altitude of the 
O 2 Herzberg I bands. These recent ISO data have greater signal-to-noise ratios than the data 
analyzed by Siskind and Sharp [19]. Column densities were determined for OjCA) as a function 
of altitude. These results will put much tighter constraints on input parameters to the 
atmospheric models. An example spectrum from 260 - 300 nm is given in Figure 30 (taken 
from Reference 6). 

Spectral dayglow data was also obtained from the ISO over a broad wavelength range (60 
- 840 nm) as a function of altitude. The instrument’s field of view was scanned down through 
the earth limb. Slant path intensities were obtained at different tangent heights. An example 
of the data obtained is shown in Figure 31 (from Torr et al. [20]) over a portion of the 200 - 
300 nm wavelengths of interest here. Torr et al. made comparisons with ISO data at many 
wavelengths to their thermospheric model for conditions at the time of the ATLAS-I mission. 
They found generally good agreement between model predictions and these recent voluminous 
data. They suggest that photochemical processes controlling the thermospheric dayglow are now 
relatively well understood. 

One additional dimension for limb radiance data was obtained from Delta 181 in early 
1988 with the imaging data taken from low earth orbit. Ross et al. [21] report on CCD camera 
limb images of low latitude UV O 2 Herzberg I emission showing substantial structure in the UV 
nightglow. The limb emission shows patchy, sometimes periodic, spatial variations in amplitude 
of up to 20%, on a scale of about 15 kilometers in both the horizontal and vertical directions. 
They attribute the regular structure to gravity wave initiated temperature and 
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Figure 29. Limb Altitude Profiles for the 180 to 310 nm Waveband, (a) Dusk limb altitude 
profiles at six different solar zenith angles; (b) Noon limb altitude profiles at 
three different solar zenith angles; (c) Midnight limb altitude profiles. Most of the 
emission originates at wavelengths longer than 250 nm. (Excerpted from Carbury 
and Meng [17].) 
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Table 10. LIMB Observational Summary (Excerpted from Carbury and Meng [17].) 



Tangent Altitude 
(km) 

Intensity (180-310 nm) 
(R) 

Dominant Spectral 
Features 

Dusk 

Limb 

-100 

~2x l{F-3 X 10‘ 

Solar Backscatter 

0 

~ 1 X 1(F - 4 X 10* 

Solar Backscatter 

100 

5 X 1(F - 1 X 10* 

NO^, O 2 Herzberg I 

200 

<9 X 10' - 2 X 10' 

NO, 


-100 

~ 1 X lO' - 4 X 10* 

Solar Backscatter 

0 

~3x lO'-tix 10* 

Solar Backscatter 

100 

< 1 X KF - 2 X 10“ 

NO,, O 2 Herzberg I 

200 

<4x 1(F 

NO, 

Noon 

Limb 

-100 

< 1 X 10' 

Solar Backscatter 

0 

< 1 X 10' 

Solar Backscatter 

100 

7 x 10“ 

NO,, NOS, et al. 

200 

4x 10* 

NO, 

Midnight 

Limb 

-100 

~ 1 X 10' 

Residual Airglow 

0 

1 X 10' 

Residual Airglow 

100 

~1 X KF 

O 2 Herzberg I 

200 

~4x 1(F 

Residual Airglow 



Wavelength (A) 


Figure 30. Spectral image of mesospheric nightglow over New Guinea measured by the ISO 
on ATLAS-1 at ~ GMT 18:05 on day 88,1992 at an altitude of ~ 80 km. ^ote: the 
structure is not noise.) (Excerpted from Torr et al. [20].) 
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Figure 31. Example of the spectra obtained at different tangent ray heights in the course of 
an ATLAS-I roll maneuver. While the absolute scale is the same for each, the 
various spectra have offsets added in order to display the data. (Excerpted from 
Torr et al. [20].) 

composition oscillations in the limb. (Oscillations in the dynamic 82 - 90 km visible airglow 
layer have been traced via OH vibrational "Meinel band" emissions in the red. Fluctuations in 
temperature, and densities of oxygen and hydrogen atoms have been modeled to explain the 
large-scale wave structure observed.) Although the structure appears to be fully three- 
dimensional, its existence cannot be confirmed at altitudes very distant from the 95 km altitude 
where the UV Oj Herzberg I emission is a maximum brightness. The Imaging Spectrometric 
Observatory on the ATLAS 1 Mission made limb scans of the Oj Herzberg and Chamberlain 
bands over the 275 - 300 nm region. The altitude profiles of these bands were obtained at 2 km 
resolution between 80 and 110 km with 10 deg latitude resolution. The vibrational distribution 
remains invariant with altitude, bounding quenching rate coefficients [22]. Looking through the 
limb one sees an integrated emission over the entire path length so one tends to average over 
these "structured" emissions. Whether or not this structured nature of the night glow is of any 
consequence to nighttime remote sensing of missile targets is unknown. Spatial fluctuations in 
background radiation if large enough may have some effects on the ability of a space-based 
tracking system to find and track a target plume. At this time, however, they appear to be of 
minor significance at the low signal levels observed even though they may be scientifically 
fascinating. 

AURORAL IMAGES AND EMISSIONS 

Emissions from auroral activity are usually confined to polar regions although 
occasionally with large bursts of solar activity can be observed at latitudes corresponding to 
those of the continental United States. Auroral displays are important to remote sensing of 
missile launches. They also vary enormously in time and space, and are therefore a 
complicating factor in anticipating background radiation levels at all wavelengths. Auroral 
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emissions are brighter than night glow and are on the order of dayglow levels. Radiation in the 
200 - 300 nm wavelength range are the VK bands of N 2 , the NII band at 214.3 nm and N 2 LBH 
v=8 and 9 bands. Siskind and Barth [23] analyzed spectral data taken during a rocket launch 
into an auroral arc from Poker Flats, AK in 1983 with a horizontal viewing spectrometer 
between 90 and 195 km altitude. Figure 32 shows the measured spectra from 195-218 nm. 
The NII band at 214.3 nm is the overwhelming feature but the N 2 LBH bands are of significant 
brightness of 20 to 40 Rayleighs. Siskind and Barth used these data and 391.4 nm emission as 
a function of altitude to estimate precipitating electron cross sections and quenching rates for N 2 . 
The peak emission rate at 214.3 nm is around 125 km altitude. The altitude dependence of that 
emission, of course, depends on the electron flux and the energy distribution of precipitating 
electrons. 



Wavelength (A) 


Figure 32. Comparison of observed spectrum (solid line) and synthetic fit of the LBH bands 
(dotted line). Three LBH sequences and the Nil doublet are identified. The data 
are a composite of 300 spectra obtained between 140 km and 170 km on the 
upleg portion of the rocket flight. No data were recorded between 2070 A and 
2095 A. (Excerpted from Huffman et al. [13].) 

In a theoretical paper, Daniell and Strickland [24] examine the dependence of auroral 
middle UV emissions on the incident electron energy distribution and on the neutral atmosphere 
composition. They calculated emission rates for (1) N 2 VK bands, (2) N 2 2P bands and (3) the 
01 band at 297.2 nm for various incident electron energy distributions and fluences. Their 
purpose was to demonstrate the determination of the incident electron spectrum from optical 
observations. But the uncertainty in the atomic oxygen concentration profile with altitude leaves 
the determination uncertain. Daniell and Strickland calculate volume emission rates as a function 
of altitude of these three spectral features and then integrate these over altitude for column 
emission rates or what would be seen looking down from a satellite. They showed that 
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essentially all auroral emissions come from above 120 km for average energies. At low electron 
energies, most of the energy is deposited at high altitudes in the atomic oxygen controlled 
region. As the incoming electron energies increase, more of the energy is deposited at lower 
altitudes in Nj. The total emission still depends approximately on the total energy flux but the 
emitting layer is thinner and at lower altitudes for high energy electrons. This is straightforward 
if one is looking down, but complex if the line-of-sight is a slant or a limb view. 

Ishimoto et al. [25] analyzed 1978 S3-4 satellite measurements of the N 2 LBH band at 
192.8 nm and the N 2 VK band at 260.4 nm. Their purpose was to estimate the average energy 
and total energy flux of electrons by applying the models of Strickland et al. [26] and Daniell 
and Strickland [24] just discussed. The S3-4 satellite measured emissions of the nightside aurora 
in both the discrete and diffuse regions under a wide range of auroral activity with nadir viewing 
UV instruments from an altitude of 270 km. Ishimoto et al. chose the above two bands because 
they were relatively free from contamination by other emissions. They found that the N 2 LBH 
band emission was a good indicator of the average energy flux of electrons while the intensity 
ratio of the N 2 LBH emissions at 193 nm to the N 2 VK emissions at 260 nm was a good measure 
of the average energy of the electrons. 

Auroral emissions vary from quiescent to very active with large changes in the emitted 
radiation. But it is not just the brightness which changes. Emissions have been observed at 
latitudes less than 60 deg during large magnetic disturbances so the area covered by the aurora 
enlarges and moves down to lower latitudes. The levels of emitted radiation rise and the relative 
levels of emission at various wavelengths changes with increasing solar activity and magnetic 
disturbances. On top of that, the radiation comes from a broader range of altitudes including 
much higher altitudes. Ishimoto et al. [27] analyzed UV auroral spectra which they describe as 
anomalous from the 1978 S3-4 satellite polar orbit observations at 270 km discussed earlier. 
These particular UV measurements were made during a particularly large magnetic disturbance. 
They examined the spectral content of these anomalous spectra and compared the low latitude 
auroral spectra with that from the more typical high latitude spectra. Typical diffuse auroral 
emissions are caused mostly by in-coming electrons with an energy spectrum of a Maxwellian 
type of distribution and an average energy of 3 keV. Peak emission levels are found at 110- 
120 km altitude [24]. In the midnight region most of this emission is caused by electrons with 
proton precipitation a minor contributor. The observed emission from the higher latitudes 
showed their usual characteristics. The anomalous spectra came from the low latitude regions 
(on the equator side of the diffuse auroral region). There the spectra were much higher in 
atomic emissions relative to molecular, and the N 2 molecular bands showed high vibrational and 
rotational temperatures. Ishimoto et al. suggested that the high altitude emission can be 
attributed to keV ion/neutral oxygen precipitation and collisions with N 2 , rather than the more 
commonly observed proton initiated auroral emissions. 

Being able to understand and model these emissions is of more than scientific interest. 
Prediction of auroral emissions are part of quantifying the background or clutter which may limit 
the capabilities of a future space-born platform to detect and track missile plumes. Auroral 
emissions are very variable in space, time and intensity and will be a significant challenge to 
characterize in near real-time for remote sensing. 
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BACKGROUNDS AND TARGET SENSING 


Knowledge of the radiance sources of the ionosphere must be converted to forms which 
are useable to model, measure, or construct backgrounds against which missile plumes must be 
discriminated and tracked. The spectrometer, photometer and imaging data cannot be obtained 
in real time over just the right path lengths, angles, fields-of-view, and altitudes. Our 
understanding must be represented by models updated by frequent observations and then the 
backgrounds predicted or extrapolated forward in time in order to assist a surveillance satellite 
in identifying and tracking targets. The background radiance and all of its spatial and temporal 
variations must be available in a timely manner at some appropriate level of detail. This 
constantly varying signal is frequently called clutter or noise, from which the missile plume must 
be isolated. 

Malkmus et al. [28] recently gave a review of models and measurements of the daytime 
limb radiance in the ultraviolet and visible regions, and calculated the background "clutter" for 
looking through the earth limb. The effects of molecular band emissions, atomic line emissions, 
fluorescence and Rayleigh scattering were included, as well as the importance of sun position, 
atmospheric composition and solar activity. The transmission through the limb as a function of 
tangent height was determined. A background clutter model was constructed by integrating over 
lines-of-sight in three wavelength regions: 200 to 300 nm, 300 to 400 nm and the 400 to 
700 nm visible region during daytime conditions. An example of one of the steps in their 
calculations is shown in Figure 33, where the transmissivity of a line-of-sight from a target 
at various altitudes in the earth’s limb out to space is plotted for several wavelengths and 
wavebands. 

Using an average ozone concentration profile as a function of altitude for noontime 
conditions, and the computer code APART, the mean limb radiance as a function of altitude was 
calculated as given in Figure 34. A model for the high-altitude atmospheric radiance power 
spectral distribution was based on multiple sources of data on the scale size of atmospheric 
radiance emissions as a function of altitude as in Figure 35. 

The expected variance in the UV clutter is determined from measured variations in the 
atomic oxygen profile, and the assumption that the radiance viewed by the observing platform 
is the sum along a line-of-sight of many statistically independent regions of the atmosphere. 
Malkmus et al. reduced this to a signal-to-noise ratio as a function of tangent height. Figure 36 
shows an example calculation for the 200 - 300 nm waveband. Solid line (a) is the SNR for the 
estimated clutter, while the dashed lines above or below are for the clutter varying by ±50%. 
Curve (b) is for the clutter set to zero. A corresponding calculation for the visible waveband 
shows that at tangent altitudes below about 80 km the 200 to 300 nm UV band offers higher 
signal-to-noise ratios than the visible band. 

Although the clutter model just discussed, which is based on atmospheric composition 
variability, is preliminary, it is a good example of the kinds of calculations that will be required 
to make the current wealth of atmospheric/ionospheric emission data useful for target sensing, 
and to model and design the target sensing systems that will make target sensing a reality. 
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Figure 33. Transmissivities from Space to Given Target Altitude at UV and Visible 
Wavelengths, and Averages over 0.20 to 0.29 and 0.40 to 0.70 ^m Bandpasses. 
(Excerpted from Malkmas et al. [28].) 



Figure 34. Limb Radiance in the 2000 to 3000A Band for Solar Zenith Angle of 30 deg and 
an Exospheric Temperature of 1000 K. (Excerpted from Mallonus et al. [28].) 
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Figure 35. 


Figure 36. 



The Altitude Distributions of the Measured Scale Sizes Adapted from Figure 18 
(p. 101) of Humphrey et al. [39] 



Signal-to-Noise Ratio Calculation for an Object Viewed Against the Earthlimb in 
the 2000 to 3000A Band. Curve (a) is calculated from the estimated clutter. The 
dashed lines represent the effect of varying the clutter estimate by ±50%. In 
curve (b) the clutter has been set to zero. 
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Clutter can also be created by other atmospheric features such as polar mesospheric 
clouds (PMCs). These high altitude (~ 80 km) clouds will scatter solar radiation above the ozone 
attenuation layer. PMCs have optical thicknesses in the 10^ or greater range. Reflected sunlight 
from a PMC could thus have significant upwelling radiances and significant spatial structure 
clutter. In a rocket-based mission, the UV Imaging Polarimeter detected the polarization of 
scattered sunlight at three angles from PMCs, at 265 nm, and determined the mean particle 
radius to be less than 40 nm [30]. Future missions will determine the radiances, seasonal 
occurrences, variabilities, and structure of PMCs. 

The VUE System was an early SDIO UV bandpass radiometric payload mounted on an 
operational satellite. Multiple filters were used to view space, hard earth and targets. The 
nominal 200 to 300 nm filter provided much useful information, including earthlimb radiance 
profiles. Detectable signals up to 125 km were observed. Once corrected for dark counts, these 
compared favorably with the rate of radiance decrease with altitude predicted by a UV earthlimb 
model as shown in Figure 37 [31]. 



Radiance 


Figure 37. Comparison of Normalized VUE Radiance Data with Atmospheric Model 
(Excerpted from Pritt [31].) 

A recent paper by Smathers et al. [5] summarizes the capabilities of the Low-Power 
Atmospheric Compensation Experiment (LACE) satellite and the onboard Ultraviolet Plume 
Instrument (UVPI). This satellite was built by the Naval Research Laboratory for SDIO. Since 
its launch in 1990, the UVPI instrument has obtained high spatial resolution near UV/visible 
images of rocket plumes, and has been used to view aurora, the earth’s limb, and other earth 
background phenomena. The UVPI has two CCD cameras co-aligned which share the same 
telescope. The tracker and plume camera specifications are given in Table 11 from Smathers 
et al. [5]. The dynamic range and sensitivity of the UVPI plume and tracker cameras were 
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Table 11. UVPI Instrument Characteristics (Excerpted from Smathers et al. [5].) 


Parameter 

Plume Camera 

Tracker Camera 

Telescope aperture 

10 cm 

10 cm 

Telescope focal length 

605 cm 

60.5 cm 

Spectral region 

195 to 350 nm 

255 to 450 nm 

Available filters 

4 

1 

Frame rate, normal 

5 per sec 

5 per sec 

Pixels, normal 

251 X 240 

251 X 240 

Frame rate, zoom* 

30 per sec 

30 per sec 

Pixels, zoom* 

91 X 112 

91 X 112 

Digitization 

8 bits/pixel 

8 bits/pixel 

Image data rate 

2.5 MB/s 

2.5 MB/s 

Field of view 

0.18x0.137 deg 

2.60 X 1.98 deg 

Field of regard 

100 X 97 deg 

100 X 97 deg 

Pixel field of view 

12.8 X 10.0 

181 X 144 

System resolution 

80 to 100 fiR 

220 to 250 fiR 

Pixel exposure time 

33 ms 

^ 33 ms (adj.) 

*Reduced FOV 


designed for nighttime operation. The instrument is calibrated on orbit periodically by actively 
tracking stars with known spectra and magnitude. The LACE/UVPI cameras could be regarded 
as a prototype target acquisition and tracking device. However, it is really more experimental 
in that it is designed to evaluate various bandpasses in the UV to collect rocket plume imagery 
and the required complementary base-line data on earth backgrounds and limb. The five 
different filters for UV observations shown in Figure 38 give several different wavebands within 
or including the 200 - 300 nm range. 

Some example earth limb night glow observations from the UVPI tracker camera over 
the broadest UV band (Filter TC covering almost all of the nightglow) are given in Figure 39. 
Altitude profiles of the nightglow radiance are shown for two different orbits. These data were 
taken at the same latitude, longitude, and local time, but only one day apart. The peak radiances 
vary by over 50% within a 24-hr period giving a good example of the changes in nightglow that 
will occur. Several UVPI radiance levels of nightglow are compared with other data in Table 
12 from Smathers et al. [5]. The bandpasses are different for each data source so detailed 
comparisons are somewhat laborious to perform. 
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Figure 38. Net Quantum Efficiency for the Tracker and Plume Cameras (Excerpted from 
Smathers et al. [5].) 


Samples of auroral observations by UVPI are shown in Figure 40 where two vertical 
profiles were obtained from different locations within the same image of a southern nighttime 
aurora on August 3, 1990. An auroral model was used to fit the profiles, permitting the number 
of auroral forms in the observed region, their locations, thickness and assumed precipitation 
electron spectra to vary. The model calculates altitude profiles of volume emissions from a user 
specified electron spectrum. Figure 41 is a reminder of the anticipated altitude of auroral 
emissions for different electron energies. Sorting out the origin of emissions from aurorae can 
be quite complex because the camera may be viewing multiple auroral forms at different 
locations. Good fits to these data were obtained by assuming that there were two auroral forms, 
a discrete auroral arc at the tangent point and a diffuse aurora between the tangent point and the 
spacecraft. 

Each UVPI observation such as those listed in Table 13 provides a data set of several 
thousand images. Only a small amount of the data has been analyzed. The data are archived 
at the Naval Research Laboratory. Much more could be done with the data to develop a 
quantitative understanding of the complex task of finding and tracking a missile plume in the 
midst of all of these varying natural emissions. 
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Orbit 7248 Tracket 


140 



Radiance (kR) 

(b) 

Figure 39. UVPI Earthlimb Nightglow Data, (a) Limb profile for orbit 7248, filter TC; 

(b) Limb profile for orbit 7263, filter TC. (Excerpted from Smathers et al. 





Table 12. Measurements of Nightglow Intensities (Excerpted from Smathers et al. [5].) 


Source 

Passband (nm) 

Radiance (KR) 

UVPI Tracker Camera, Orbit 2089 

255-450 

23-29“ 

UVPI Tracker Camera, Orbit 7248 

255-450 

100-120“ 

UVPI Tracker Camera, Orbit 7263 

255-450 

60-70“ 

UVPI Filter PC-4, Orbit 7248 

235-350 

65-75“ 

UVPI Filter PC-1, Orbit 7248 

220-320 

50-60“ 

Gerard, 1975 

240-310 

3.5-15“ 

Torr et al., 1985 

312-320 

29“ 

Sharp and Siskind, 1989 

267-304 

70“ 

Swenson et al., 1989 

279-281 

4.2“ 

Swenson et al., 1989 

296-299 

7.1'' 

Swenson et al., 1989 

345-495 

14“ 

“total Herzberg I 

“total Herzberg I + II & Chamberlain 

Hotal Herzberg I (50%) + O(‘S)(50%) 


VEHICLE INDUCED EMISSIONS AND CONTAMINATION 

A brief review of both these effects is included as they affect the ability of the sensor to 
perform its designed mission to detect remotely upwelling earth radiance backgrounds. 

The S3-4 platform was in an elliptical orbit and observed the hard earth with a nadir 
viewing UV spectrometer [32]. At altitudes near perigee an excess radiance from Nj (a-X) LBH 
transitions was observed. These features scaled with atmospheric density cubed [33]. Although 
the exact mechanism has not been determined, it likely involves a stepwise dissociation, 
recombination and excitation of atmospheric nitrogen as it interacts at high relative velocities on 
and above spacecraft surfaces. 
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Tangent Altitude (km) Tangent Altitude (km) 



(a) 



Figure 40. Vertical Emission Profiles from an Auroral Image, (a) Auroral profile #1 for 
orbit 2570, filter TC; (b) Auroral profile #2 for orbit 2570, filter TC. 
(Excerpted from Smathers et al. [5].) 
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Figure 41. Electron Energies for Various Altitude Aurora (Excerpted from Smathers et 
al. [5].) 


Table 13. Summary of UVPI Observations 


Type Observation 

Number 

1. Rocket Plume Obser. & Rehearsals 

52 

2. Beacon Tracking Tests 

29 

3. Star Calibration Observations 

49 

4. Night Limb Background Observations 

46 

5. Night Nadir Background Observations 

21 

6. Day Limb Background Observations 

5 

7. Day Nadir Background Observations 

33 

Total 

235 


The possibility of enhanced UV signatures due to the several km/s interaction of the 
atmosphere led to the UV Bow Shock missions. Although a primary goal of these missions is 
to address target signatures, they also observed enhanced near-field background radiances that 
arise from the interaction of the spacecraft with the tenuous upper atmosphere at ever increasing 
relative velocities. The Bow Shock experiments were performed at velocities of 3.5 and 
5.1 km/s. Prominent interaction-induced signatures were observed. NO (A-X) transitions were 
the dominant MUV emission formed in the shock-excited air. OH (A-X) transitions and even 
N 2 ‘^(B-X) emission at 391.4 nm were also observed in the interaction shock at altitudes 
approaching 100 km [34]. 
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spacecraft contamination can decrease system performance either by absorption of the 
far-field radiance or by creating scatter. The results from the VUE mission appear to have been 
compromised by contamination. Inspection on the ground revealed significant particulate 
contamination on the mirror. Although the mirror was cleaned, the rest of the telescope was 
not. The data from on-orbit indicated severe scattering problems. Apparently the particles 
remaining in the sensor were redistributed onto the mirror during the launch [35]. Thus the 
ability to launch clean UV sensors repetitively must be demonstrated in the future. 
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CHAPTER?. SUMMARY AND FUTURE DIRECTIONS 


The BMDO has played an effective role in advancing the capabilities of on-orbit UV 
sensing by sponsoring the development of advanced sensor arrays, and by rapidly demonstrating 
these sensors’ capabilities on-orbit. The altitude profiles, variabilities and minor emitters are 
much better characterized today than they were a decade ago. Moreover, the BMDO has 
developed the broad Strategic Scene Generation Model (SSGM) to couple effectively this 
enhanced understanding into its effects on a wide range of strategic scenarios. This will permit 
sensors’ and systems’ performance to be simulated and tested against a variety of stressing 
scenes [1]. The lessons learned from the observations during the missions discussed above are 
being used to validate the backgrounds codes in the Strategic Scene Generation Model. This 
model can then be exercised to define operational regimes where better information is required, 
thus focussing future measurements programs. Atmospheric radiance predictions from the lower 
atmosphere are created using the GENESIS and CLOUDSIM modules. These have been 
complemented by a UV extended version of MODTRAN complete with improved absorption, 
solar radiance models, and atmospheric layering. The AURIC high altitude UV Radiance 
model is also nearing completion and will be included into the SSGM. 

The most important unfilled data base is the accurate determination of the clutter structure 
for below the horizon (BTH) viewing geometries in MUV at scales required for hard body track 
and location pinpointing. In addition to the natural atmospheric radiance variability, the 
magnitudes and statistics of the variations induced by transient atmospheric events such as 
aurora, PMCs, stratospheric warmings need to be acquired. Detailed understanding requires a 
global database on these variabilities. UVISI on MSX will be is able to address many of these 
issues. MSX will be in a 898 km near sun-synchronous polar orbit. Radiances from all 
latitudes will be detected over all seasons. The nominal 5-year mission will permit the 
development of a good statistical data base and extraction of the effects of solar activity. The 
effects of line-of-sight and solar scatter angles will be deduced from the large data base, in 
addition to the effects of seasons, latitudes, terrain, and cloud types. 

UVISI is comprised of five spectral imagers and four bandpass imagers. It will view the 
limb and hard earth with 0.9 to 1.8 nm spectral resolution in the MUV (200 - 3(X) nm) region. 
A spatial resolution of 90 /xrad (7.9 x lU’ sr) will be achieved with a sensitivity of two photons/ 
cm^-s per pixel. This spatial resolution is a factor of two better than the UVPI camera. The 
narrow field UV imager can operate with four bandpasses 200 to 3(X) nm (open), 200 to 230 nm, 
230 to 260 nm, and 260 to 3()0 nm. An auroral hot-spot tracker will permit intense features to 
be imaged spatially and spectrally simultaneously [2,3]. Image region will be automatically 
processed to extract the spatial moments from the probability density function and PSD 
distributions [4]. The performance specifications for the imagers and spectrographic imagers 
are given in Table 14. 

UVISI was assembled and integrated in a Class 100 Cleanroom environment and carefully 
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Table 14. UVISI Imager Specifications (Excerpted from Carbury [5].) 


Imagers 


Item 

lUN 

lUW 

INV 

IVW 

Filter (nm) 





Open 

180 to 300 

no to 180 

300 to 900 

380 to 900 

Attenuated 

180 to 300 
(x 10-') 

no to 180 

(x 10-^) 

300 to 900 
(x 10^) 

380 to 900 
(x 10^) 

WBl 

200 to 230 

into 127 

305 to 315 

426 to 429 

WB2 

230 to 260 

128 to 138 

350 to 440 

529 to 631 

WB3 

260 to 300' 

145 to 180 

470 to 640 

380 to 900" 

Sensitivity (p/cm^-s) 





Open 

2 

5 

1 

6 

Attenuated 

400 

25000 

12000 

57000 

WBl 

3 

90 

18 

9 

WB2 

4 

100 

3 

5 

WB3 

N/A 

90 

1 

N/A 

Photocathode 

(window) 

RbTe 

(MgFj) 

Csl 

(MgFj) 

ExtS20 

(SiOj) 

ExtS20 

(SiO^) 

Aj (cm^) 

130 

25 

130 

25 

(sr) 

7.92 X la’ 

6.68 X 10-’ 

7.92 X 10-® 

6.68 X la’ 


Item 


Waveband (nm) 


X Resolution (nm) 

wide slit 
narrow slit 


Sensitivity 

(phot/cm^s) 


Photocathode 

(window) 


Ai (cm^ 


SPIMl 


110 to 170 


Spectrographic Imagers 


SPIM2 


165 to 258 


SPIM3 


251 to 387 


SPIM4 


381 to 589 


SPIM5 


581 to 900 



Csl 

(MgF^) 


RbTe 

(MgF3) 


BiAlk 

(SiO^) 


ExtS20 

(SiOj) 


‘Center X with AX = 
“Pixel size for small 


3.81 xia’ 3.81 X 10-^ 3.81 x IQ-^ 3.81 x IQ-^ 


resolution for wide slit; A6 assumed 0.10 deg. 
slit (0.05 deg) and best along-slit resolution (1 deg/40) 


ExtS20 

(SiO^) 


110 


3.81 X la’ 
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baked out to avoid molecular and particulate contamination affecting its mission performance. 

A future NASA and NRL Mission will observe the OH and NO A-X transitions at 
0.01 nm spectral resolution to obtain the spatial structure dependence and its effect on radiance 
and the molecular internal distribution in the airglow. Highly non-equilibrium OH and NO 
rotational distributions have been observed by CIRRISIA in the infrared, and these distributions 
may also be detected in their UV emission signatures. 

The near-term missions will rely upon evolutionary improvements in the state of imaging 
arrays and intensifiers such as microchannel plates. Future long-term missions will require 
further advances in detector technologies. Sensor systems will need to be hardened against 
natural and offensive radiation threats to levels far in excess of those currently possible. This 
may require the use of non-silicon-based detection techniques and new electron multiplier 
technologies. Filters for UV detection systems have stringent out-of-band rejection requirements 
approaching 10* over the entire surface of the filter. Better process control or techniques will 
be required for future systems. 

The advances in data fusion techniques and the recent progress in infrared detector arrays 
suggest that simultaneous scene observation in several colors from UV through IR spectral 
regions should be possible with identical spatial resolution, temporal resolution, and co¬ 
registration. 

This material represents the status of the field as of late 1993. Analysis of the field 
observations data and the models from the many BMDO sponsored program elements is 
ongoing, and continuous improvement in our understanding of the UV atmospheric radiance 
variability and ability to predict its global and spatial/temporal behavior is expected. 
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PART THREE 


INFRARED EMISSION FROM NO^ BY ELECTRON IRRADIATION OF THE 

ATMOSPHERE 


INTRODUCTION 

The presence of infrared radiation from NO"' in the upper atmosphere has often been 
invoked to account for prompt radiation observed in the vicinity of 4.3 micrometers. However, 
attempts to measure NO'*' infrared emission characteristics have not been fruitful. The only 
atmospheric measurements of NO"^ were from an aircraft-bome, free-running, low-resolution 
interferometer during the 1963 Fish Bowl nuclear test series reported by Stair et al. [1] and a 
field-widened interferometer rocket probe of the aurora reported by Picard et al. [2]. Earlier 
EXCEDE measurements by O’Neil et al. [3] tenitively identified NO+ emissions but later Lee 
et al. [4] corrected the identification and attributed the emission to CO. All of these 
observations are somewhat ambiguous. In part, the failure to observe NO^ emission stems from 
its close spectral proximity to the CO 2 (001-000) band. For typical upper atmospheric 
temperatures of 220 degrees K, the C02(»'3) band overlaps the emission of NO'*' fundamental 
band emanating from its first excited vibrational level. Fortunately, due to its anharmonic nature, 
emission from higher vibrational levels fall to the long wavelength side of C 02 (»' 3 ) and may be 
more easily measured. 

Several candidate chemical reactions for producing NO"^ are sufficiently exothermic to 
populate very high vibrational levels. Unfortunately, the majority of the reactions are 
undetermined as to the distribution of energy partitioned into the vibrational states of NO"^ and 
the reactant products. Consequently, it has been uncertain if emission from higher vibrational 
levels of NO^ is produced in the upper atmosphere. Even laboratory attempts such as 
Henninger et al. [5] to collect infrared data on NO'^ have been sparce. Laboratory 
measurements are hampered by the inability to generate and maintain the excited ion at sufficient 
concentrations and it appears unlikely that the reactions producing vibrationally excited will 
be quantified soon. Hence, a rocket-borne electron beam experiment, EXCEDE III, as 
described by Paulsen et al. [6] was conducted with one of its important objectives being to 
perform a series of spectral measurements at different altitudes in the atmosphere to characterize 
the emission spectra of NO^. 

EXPERIMENT DESCRIPTION 

On 27 April 1990 at 01:00:59 MDT, an Aries booster carried the EXCEDE III payload into 
the night sky at White Sands Missile Range, NM. Figure 1 gives a pictorial representation of 
critical events during the flight. The payload consisted of two parts, an electron accelerator or 
electron gun module, and a sensor module. Following booster separation the two modules were 
uncoupled, the modules were re-oriented with the gun module beam pointed along the earth’s 
magnetic field lines and the sensor module was aimed with its sensors pointed initially about 60 
meters along the electron beam. Pointing of the sensors was achieved by a pre-programmed, 
precision attitude control system with real-time override based on on-board video and ground- 


111 




based commands. 
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Figure 2 shows a conceptual diagram of the two major payload components. The accelerator 
system which produced the electron beam consisted of two separate accelerator bays. Protection 
of each bay was provided by a load-fault detector which disabled the bay for about 0.1 sec and 
implemented a re-start at a lower voltage. Three high voltages at 2.6, 2.1 and 1.5 kV were 
available. All of the data reported here were taken with the highest gun voltage. The gun 
design was intended to produce an uncollimated beam of electrons of approximately 18 amps at 
2.6 kV. The electron density at maximum energy deposition near 103 km was about 1.0 x 10^ 
cm’^ which is much greater than that in the ambient or even a Class III aurora, which would be 
about 1.0 X 10* electrons cm'^ according to Whalen [7]. Actual beam performance was 
monitored by several devices observing voltages, currents; with emission intensities measured 
by photometers and cameras from on-board and from ground-based telescopes. 
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The sensor module carried a Michelson-type interferometer-spectrometer pointed at the beam 
and three Circular Variable Filter (CVF) spectrometers. One CVF was pointed at the beam, the 
second CVF was pointed 8 degrees into the afterglow and the third CVF is pointed 20 degrees 
into the afterglow. Also, on-board the sensor module were ultraviolet and visible spectrometers 
with co-aligned photometers, a spatially scanning photometer package (3914 A) to sweep over 
the beam and several other sensors. The work presented here is primarily concerned with the 
measurements from the interferometer looking at the beam, and the measurements of the 
intensity profile of the N 2 '^ 3914 A emission. 

The high resolution spectrometer designed to perform the infrared spectral measurements 
was a modified Michelson interferometer built by Thurgood and Huppi [8] at Utah State 
University. The principal modification to a conventional Michelson interferometer was the use 
of two separate front-end optical systems which were treated independently but shared a common 
translating element. Figure 3 shows the mechanical layout of the interferometer. The unique 
aspect of this configuration was the rotation of two mirrors about a pivot point so that as one 
mirror advanced the other retreated. As can be seen, the moving mirrors share a common drive 
and constitute a dual optical cube which in essence yields two interferometers. Each beam in 
these two interferometers was separated spectrally by dichroic beam splitters (not shown) to 
produce four channels of infrared radiation, each of which was directed onto one of four 
separate detectors. The four spectral channels were spectrally isolated to the regions of 2.2 - 
3.8, 3.8 - 7.5, 7.1 - 12.2 and 12.2 - 21.3 micrometers, designated channels 1 - 4 respectively. 
Only data from channel 2 are reported here. 



SENSOR MODULE 

Figure 2. Payload Showing The Sensor Module and Gun Module. 
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Since an interferometer is usually intended for observation of stationary sources, the 
measurements were synchronized to the pulses of the electron gun. The timing of the moving 
mirrors to begin a measurement relative to the electron gun event is shown in Figure 4. In the 
beam-on condition, two full scans with the movable mirror covering maximum extension in 
optical path difference were recorded. During the beam-off condition, one full measurement to 
the maximum optical path difference was followed by a short scan and scan/retrace to be in 
position for the next beam-on pulse. Thus, four interferograms were obtained each cycle of the 
electron gun. The resolution for the three long scans with the moving mirror is 1.8 cm ' and 
the field of view is approximately 3.6 x 3.6 degrees. 

A continuous scanning photometer with a 10 A bandpass centered at 3914 A was used to 
monitor the emission. This photometer swept from -15 degrees south of the beam to 30 
degrees north of the beam with full angular coverage in one second. The instantaneous field- 
of-view was 0.1 degree and provided for a spatial resolution of a meter or less at the beam. 
Details on on the measurement of the 3914 A radiation is given by Rieder et al. [9]. 

The Aries launch was from north to south in order to direct the beam up the earth’s 
magnetic field lines and away from the degassant plume. Payload separation from the booster 
(having a down range velocity of 279 m/s) occurred at 68 km and followed a ballistic trajectory 
reaching an apogee of 115 km. Following separation, the sensor and gun modules were de¬ 
coupled from each other at 82 km with a relative velocity of 3.17 m/s. The initial beam cycle 
occurred at 120.4 s after launch corresponding to an altitude of 89 Km. In all, 23 useful beam 
cycles were generated with the final pulse on down-leg occurring near 62 km. 



Figure 3. Schematic of the Interferometer Optics and Drive Mechanism (Reference 8). 
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Figure 4. Interferometer Scans Synchronized to the Electron Beam, 
SPECTRAL DATA 

Data collected from the interferometer are interferograms, F(x), each produced over a single 
scan of the moving mirror. An interferogram is the autocorrelation of the incident radiation 
falling on the entrance aperture of the interferometer. Spectral recovery is accomplished by 
performing a Fourier transform of each interferogram, that is 


B(a)=J F(x)A(x)cxp[2n ax+ip(a)] 


( 1 ) 


with 



( 2 ) 


where B(a) is the spectral density of the incident radiation at wavenumber a, x is the optical path 
difference of the interfering optical beams in the interferometer with extremes at distances -L 
and L and p(a) is a phase function usually related to the instrument. Interferograms were phase- 
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corrected by the Foreman et al. [10] method which permits spectral recovery through the cosine 
Fourier transform, 


^(o) = f‘A(x)F(x)cos(2itax)dx 
Jo 


( 3 ) 


Figure 5 shows the spectrum obtained at an altitude of 102 km where the highest electron energy 
deposition occurred. The brightest emission features are from the electronic ground state nitric 
oxide fundamental bands; the features shown near 2020, 1990 and 1960 are bandheads beonging 
to the NO fundamental bands. The emission from C02 (j' 3) centered near 2340 cm'^ is also very 
bright. Unfortunately, the radiation of primary interest namely, the NO"^ fundamental band, 1 - 
0 vibrational transition, falls in and around the envelope of the C 02 (i' 3 ) emission making 
identification difficult. The spectrum of the beam-off quiescent background radiation taken 
approximately two seconds later is shown in the same figure. Similarly, Figures 6a and b show 
the beam-on and beam-off spectra taken at the 115 km apogee. Note that the signal level is 
reduced by about ten over that of Figure 5. At apogee the contribution from C02 (j' 3) is 
substantially reduced and the emission features appear to be predominantly from NO"^. To 
improve the signal to noise, 12 interferograms taken at altitudes greater than 113 km were co¬ 
added. Figure 7 shows the co-added spectrum with background removed in the spectral region 
from 2250 to 2400 cm '. This spectral region contains lines from the (1-0) and (2-1) bands of 
the Av = 1 sequence of NO^. Over forty individual vibration-rotation lines belonging to NO"'' 
are shown giving very positive identification. The local N 2 ^ density has been derived from the 
3914 A scanning photometer measurements. 



Figure 5. Spectrum of Electron Irradiated Air at 102 km Showing NO, CO 2 and the NO^ 
Spectral Region. 
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Figure 6a. Spectrum of Electron Irradiated Air at 115 km Showing NO Bandheads and the 
NO+ Spectral Region. 



Figure 6b. Spectrum of Quiescent Night Sky Taken Just After The Spectrum Shown in 

Figure 6a. 
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A complete scan across the beam of the prompt 3914 A radiation was made in one second 
intervals. These radiance profiles permit determination of the local N 2 ''' density which in turn 
yields the energy deposition per unit volume. Two profiles of the density are given by 
Rieder et al. [9] for each scan of the interferometer during the beam-on condition. 

NO^ CHEMISTRY AND MODELING 

NO"^ is the terminal E-region ion and models of its chemical production by very fast ion- 
molecule reactions show it to be formed very rapidly. Winick and collaborators [11, 12b] have 
predicted the production of NO^ for the quiescent atmosphere and for various aurora intensity 
levels. For a Class III aurora, the NO^ concentration is increased dramatically and under the 
conditions reached with the EXCEDE III electron irradiation of the atmosphere, NO"^ would be 
expected to have an even larger production rate. Low in the atmosphere where the mole fraction 
of [O 2 ] exceeds that of [O], the principal production reactions are: 

N+ + O 2 -* NO+(v) + OCp) V < 28 (4) 

N+ -I- O 2 -*> NO+(v) -1- 0(‘D) V < 18 (5) 

N+ -I- O 2 -► NO^(v) -h 0(*S) V < 8 (6) 

which are sufficiently exothermic to populate the vibrational levels indicated. The nascent 

vibrational distribution for the reaction of with O 2 reported by Smith et al. [13] has a bi- 

modal nature with peaks at v=7 and 13. Since the radiative transition probabilities for the 
fundamental bands increase with v, it may be expected that spectral features would be present 
up to and beyond 5 /um. 

At higher altitudes where [0]/[02] becomes larger, the primary source of NO’^ is expected 
to result from the reactions: 

N 2 + -I- O-► NO+(v) + N(^D) V < 2 (7) 

N 2 + 4- O-* NO^(v) + N^S) V < 8 (8) 

again exothermic and capable of producing the vibrational levels shown. A branching ratio of 
0.9 for the reactions of 7 and 8 has been estimated by Winick et al. [11] based on modeling 
considerations of NO. Hence, the majority of emission from NO"^ from this reaction would 
come from the lowest two excited vibrational levels with radiation concentrated in the vicinity 
of 2300 - 2400 wavenumbers. 

Additional chemical reaction sources include 

02-^ + NO —NO^(v) + 02(x) V < 9 (9) 

02^ + NO —*• NO^(v) + 02 (‘a) V < 6 (10) 
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(11) 


+ NO —► NO+(v) + 02(‘E) V < 4 

although no evidence of vibrational excitation from reactions 9-11 has been observed, and the 
vibrational excitation of the product is less likely for a charge transfer reaction where no new 
bond is formed. Other possible sources for NO'^(v) involve excited state reactants as for 
example given by Piper [14] such as, 


N(^P) + 0 —»• NO-’- -1- e 

V < 2 

(12) 

O^(^D) + N 2 —> NO+(v) 4- N 

V < 17 

(13) 


and need consideration. 

Still other reactions such as 


02^ + N —» NO^(v) + O (14) 

although shown to be fast by Fehsenfeld et al. [15] have concentrations too low to be significant 
and 


0 + + Nj—NO^(v) + N (15) 

is too slow [16] at thermal energies to be important for this experiment. 

The principal destruction mechanism for NO^(v) is by recombination since the electron 
density is relatively high. The vibrational energy residing in NO'^ may be lost through radiative 
emission or by collisions with other molecules, that is for example 

NO-"(v) -H N 2 —► N0^(v-1) + N 2 (16) 

NO"^(v) -t- O 2 —►NO'^fv-l) -I- O 2 . (17) 

Quenching of NQ-" at altitudes below 100 km is important with importance decreasing at higher 
altitudes; the V-T transfer has been measured by Federer et al. [17] to be, for v = 1, 7 x ia‘^ 

cm-^ s ’ with N 2 and < 10 ’^ cm'^ s ’ with O 2 . Even lower quenching rates were obtained by 

Morse et al. [18]. Although there are no measured rates for v > 1, it may be assumed that they 
are at least as fast. 

Synthetic emission spectra of vibrationally excited NO'^ were generated according to the 
relation. 


I(f^,v,j) = hcaN(v,j)A(v,j)/4x 


(18) 
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where h is Planck’s constant, c is the velocity of light, a the wavenumber, A(v,j) is the radiative 
transition probability, and N(v,j) is the number density of NO"^ in vibrational level v and 
rotational level j. The line positions and transition probabilities of Werner and Rosmus [19] 
were used. Populations of the vibrational levels and rotational states could be produced from 
a Boltzmann temperature, from independent temperatures for each, or arbitrarily populated. 
Twelve vibrational and forty rotational levels were included for each of the P and R branches 
of NO"^ in the ground singlet-sigma state. The model spectral output of NO"^ was convolved 
with an instrument function of adjustable resolution which was matched to the line profiles for 
the interferometer. 


ANALYSIS 


Prior to analyzing the field data a first order correction to the observations is required due 
to the motion of the e-beam and sensors. The spatial profile of the electron energy deposited 
is available from the prompt Nj 3914 A scanning photometer. However, the NO"’’ radiation 
lifetime is relatively long, necessitating a substantial correction. Because of the low momentum 
transfer of the electrons, the energy deposited into the ambient atmosphere remains essentially 
fixed in space for early times. The motion of the accelerator module through the atmosphere 
causes the electron beam to impact the air and leave a trail of excited and reacting gas behind 
it. The co-moving sensor module observes the leading edge of the beam deposition volume and 
all prior energy depositions within the field-of-view, so that the sensor sees a superposition of 
beam profiles; each previous profile having spread by some diffusion which depends upon its 
age since formation. Each of these aging profiles must also be weighted by the exponential 
decay rate function of any particular NO^ radiating state. A lower bound estimate of the 
fraction of radiation lost because of the transverse motion of the sensor may be found, neglecting 
diffusion. The resulting shape of this radiating profile is a convolution of the 3914 A profile 
with an exponential decay, depending on the ratio of the Einstein radiative decay rate and the 
transverse beam velocity, v. The radiating species spatial transverse profile p(y) is given by 


p(y) = aJ“g(Ar)sfe/i(y-jf)exp[-a(x-y)](ix 


(19) 


where g(x) is the 3914 A beam profile as a function of transverse x distance and a is the ratio 
of the transition probability to the velocity, A/v. The step function is unity everywhere its 
argument is positive, and vanishes otherwise. The integral is taken over the entire transverse 
beam extent, with motion along the beam axis assumed not to affect the integral; the loss at one 
end of the leading axial window being replaced by an equivalent gain at the trailing axial 
window edge. Figure 8 shows the application of this process to the 3914 A electron beam 
profile, and the resulting NO’’^ radiation profile for the 1 -* 0 transition. The peak is shifted 
away from the direction of transverse motion, the motion spreading out the profile due to the 
longer radiative lifetime of the infrared transitions of NO'’^ compared to the 62 ns radiative 
lifetime of the ultraviolet 3914 A transition. 


The correction must account for the fraction of radiation observed within the sensor field 
of view. A second integral over this field-of-view of p(y) must be performed and divided by 
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the entire integral of p(y) unrestricted by sensor limitations. For example, in Figure 8 only 46 
percent of the NO^ radiation profile is within the sensor window from -12 meters to 12 meters. 
With y„ the window half width the window fraction F is 




( 20 ) 



Figure 8. Emission Profiles of the N 2 3914A Radiation and NO'*’ Fundamental Band (1-0). The 
Beam Advances To The Left at 245 m/s. 

If the expression for p(y) is inserted into expression 20 and the order of integration reversed, 
the result is. 


F= f"g(x)r'’a step(y-x)cxp[-a(x-y)]cfydx 

where the integral over infinity of p(y) is unity. The inner integral may 
convolution. 


( 21 ) 


be written as a 


j’‘rect(yl2y^astep(y-x)tx.pi[-a(y-x)]dy ^22) 

ie., a transmission of the window in the transverse beam direction. Over the window region this 
may be integrated exactly, making the window fraction numerically easier to calculate as, 

F= «(^) (1 - exp[-a(j:-y)])d^ (23) 

•'-J'O 
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The above correction, giving a lower bound, was applied to all analysis of vibrational levels 
when comparing with the 3914 A emission. Inspection of the co-added spectrum, obtained from 
the interferometer, showed that the vibrational levels 1 and 2 are populated more than the higher 
levels. A model spectrum for the lower vibrational levels was generated. Based on a least 
squares fit to the data, a rotational temperature of 300 degrees K was determined over the 
spectral region free from overlap by the higher vibrational level emission. The modeled 
spectrum and interferometer spectrum were normalized and subtracted from one another. The 
residual spectrum exhibited emission in the region around 2350 cm ’ having a shape which was 
recognizable as belonging to the C02(V3) band. Synthetic spectra for C02(V3) was generated and 
fit to the residual spectrum and removed from the co-added interferometer spectrum. Co¬ 
addition of spectra improved the signal to noise by about a factor of 3 bringing the noise level 
to approximately 3 x 10 ’^ W/cm^sr cm ’. The spectrum, after removal of the small 
contributions from CO 2 is shown as the lower trace in Figure 9. From the emission lower than 
2250 cm ’, it is apparent that there are higher vibrational levels present, with a non-thermal 
vibrational distribution. The upper trace in Figure 9 is a best fit model to the field spectrum; 
derived with a rotational temperature of 300 degrees K and populations for the vibrational levels 
as indicated in Table 1. The uncertainty associated with each of the vibrational populations 
relative to level v=l is also given in Table 1. The presence of emission from higher v levels 
requires that a fraction of the production must be from a mechanism other than reactions 
7 or 12. 



2 OSO 2100 2150 2200 2250 2300 2350 2'*00 2«S0 

WAVENUMBER 


Figure 9. Comparison of NO’’’ Measured Spectrum and Model Spectrum. 
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At lower altitudes the emission from COjCvj) dominates the spectra. The spectrum obtained 
from the interferometer at maximum dose in the spectral region of interest, shown in Figure 5, 
indicated emission, but of uncertain origin. In addition to C 02 (v 3 ), potential radiators in this 
spectral region include 03 (Vi +V 3 ) combination band, CO fundamental bands, a fundamental band 
of No, and bands belonging to electronically excited molecular nitrogen. Consequently, attempts 
to isolate the spectral contribution of NO^ were not made. 

PHOTON EFFICIENCY 

A quantity of atmospheric importance for modeling purposes and simple estimates of energy 
distribution is the rate of photon production from NO"^ relative to the rate of ion production. 
This ratio for the fundamental bands of NO"^ is given by 

F = E,[NO^(v)]A(v,v-l)/Q, (24) 

or alternatively in terms of the ratio of output energy to input energy, referred to as efficiency, 
€ 


e = 3.65 X 10-2 E,[NO+(v)]A(v,v-l)/Q,x r(v) (25) 

where T is the central wavelength in micrometers for each vibrational transition in the 
fundamental sequence and is the ion pair creation rate. 

Since the NO^ emission is optically thin, the number of photons produced may be obtained 
directly from the spectrometer measurements. Likewise the N 2 ^ production may be derived 
from the 3914 A scanning photometer measurements by Rieder et al. [9]. For the conditions 
created by the EXCEDE III electron irradiation at altitudes near 115 km, the ratio of the 
production rate of NQ-^ fundamental-band photons relative to the production of 3914 A photons 
is 1.6 ± 0.9 where the motion correction introduced by Eq. 23 has been applied to the NO"^ 
emission. 

The rate of [N 2 '^] production relative to the total ionization can be estimated (unpublished 
May 3, 1987 RDA memo by F. Gilmore) as, 

{N 2 "}/Qe = 1.62{N2}/(2{N2} + 2{02} + {O}) (26) 

where the curly brackets denote mole fraction. The atmospheric concentrations on launch day, 
as taken from MSIS [20] for 115 km, were the [O] = 1.622 x 10", N 2 = 6.722 x 10", and [O 2 ] 
= 9.922 X 10‘“ cm "2 and together with the measured 3914 A radiation gives, 

Qe = 22.1 X 3914 A photon rate = 3.6 x 10" cm'^ s'* (27) 

where 14.1 N 2 ^ ions are required to produce one photon of 3914 A radiation. From Eq. 25 the 
energy efficiency was found to be (6.1 ± 3.4) x 10^ (which also corresponds to 0.072 ± .040 
NO"^ photons/ion pair). 
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This efficiency is significantly smaller than found in the aurora by Caledonia et al. [21]. 
Although the energy deposition is much higher in the EXCEDE III experiment, the emission is 
severely quenched that is, the excited NO^ undergoes recombination before it can radiate. As 
the electron density increases relative to an aurora situation, the production of N 2 ''’ and 
consequently the 3914 A emission will continue to scale linearly. The production of NO"^ will 
scale as the square root of the energy deposition as recombination becomes more dominant. 
Hence, even though the production of increases as in the EXCEDE III experiment, the 
photon efficiency relative to 3914 A emission will decrease, in agreement with the efficiency 
determination above. 

CHEMICAL KINETICS 

NO'^(v) can be removed by recombination with an electron with a characteristic rate 1 /t 
which is related to the product of the NO"^ electron recombination rate, k,, and electron number 
density, [e] ie.,l/T = ke[e]. For electron densities on the order of 1 x 10’ cmthe 
characteristic rate, 1/t for NO"^ recombination is on the order of 

1/t = k,[e] = 2 X 10 '' X 1 X 10’ = 200 s ' (28) 

Also, at altitudes near 115 km quenching of NO^(v) by Nj as given by Eq. 16 has a 
characteristic rate 


Hr = kN 2 [N 2 ] = 7 X 10 '^ x 8 x 10" = 5.6 s ' (29) 

where the quenching rate is taken from Federer et al. [17]. These characteristic rates must be 
compared to the radiative transition probability of vibrationally excited NO'^, for example A(l-O) 
is 10.9 s ' showing that recombination dominates. 

Recombination rapidly removes NO^(v) before radiative cascade or collisional relaxation can 
appreciably alter the vibrational distribution. Therefore, the vibrational populations given in 
Table 1 must reflect the nascent vibrational distribution of NO"'’ as it was produced. If 
were produced by the reaction of N''^ and O 2 , emission from vibrational levels greater than eight 
would be expected in accordance with the nascent distribution reported by Smith et al. [13]. The 
population from this reaction extends well beyond the eighth level and has relative maxima at 
the seventh and thirteenth levels. NO+ emission from vibrational levels greater than eight was 
not observed. Alternatively, given the intensity from v=7, with the Smith distribution for 
+ O 2 , a much smaller fraction of the observed emission from vibrational levels 1 and 2 would 
have been present. Hence, reactions 4-6 are not significant production mechanisms for v = 1,2 
under these conditions and at altitudes near 115 Km. 

As a further investigation of the production sources for NO''^, a chemical kinetic computer 
code SHARC/AARC [22, 11] was employed following the modifications of Duff et al. [23]. 
A set of chemical rate equations was solved using a Runge-Kutta integration technique. The 
chemistry set of coupled, first order, non-linear differential equations involving the production 
and loss functions for 40 species was solved as a function of time. Initial excitation conditions 
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were taken to correspond to the electron irradiation generated by the EXCEDE III experiment 
interacting with air at 115 Km. Production of NO'^(v) from reactions 4 - 6 was taken from 
Smith et al. [13] and the vibrational distribution for reactions 7 and 8 was taken from Table 1. 
No initial production into the lowest vibrational level (v=0) was assumed for the reactions, 
hence the vibrational populations correspond to an upper limit. Population gain and loss into 
vibration levels from radiative relaxation were determined using Werner and Rosmus [19] 
transition probabilities which become marginally significant relative to the electron 
recombination process at the higher vibrational levels. Single step vibrational quenching of 
NO'^(v) was also included in the reaction set. Figure 10 shows the build-up and decay of the 
major species. 



Figure 10. Calculated Evolution of Species Concentrations With Time. 

The computer code can generate the population history of NO'^(v). The reactions 4-6 and 
7-8 were alternately suppressed in the chemical kinetics code in an attempt to ascertain their 
relative production importance. Figure 11 shows the time history of each of the individual 
vibrational levels of NO"^ where the 4- O 2 reactions (4-6) have been suppressed. A similar 
plot is given in Fig. 12 where the + O reactions (7-8) have been suppressed. As 
anticipated, the relative vibrational populations of NO"^ are almost completely frozen with their 
respective nascent distributions with only slight discrepancies later in time due to radiative 
relaxation. Most significant is the relative contribution to levels 1 and 2 where reaction 7 clearly 
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dominates. Therefore, reactions 7 and 8 must be making the major contribution to the NO^(l,2) 
populations as concluded previously. 



-0.04 -0.02 0.00 0.02 0.04 0.06 

TIME (soe) 


Figure 11. Calculated Evolution of the Vibrational Levels of NO^ + O 2 in the Beam Core. 



TIME (sec) 

Figure 12. Calculated evolution of the vibrational levels of NO^ From the Reaction Nj + O 
in the Beam Core. 
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The chemi-ionization reaction 12 is a possible source of NO''’(v—1,2). This reaction has been 
suggested by Caledonia et al. [21] as being a source of auroral emission with a contribution as 
large as 10 - 15 % of the NO'^ radiation produced. The population distribution into the 
vibrational levels is unknown, particularly the fraction of NO"^ produced in v=0. The chemistry 
code was used to explore the predicted concentrations of N(^P). The prediction of N(^P) is 
sufficiently small that any contribution from this chemi-ionization reaction to the populations of 
v=l,2 has been ignored. 

As a further examination of the source mechanism for the NO''’(v), a linear extrapolation of 
the observed populations from levels 3 - 8 to levels 1 and 2 was projected to give the 
contribution to levels 1 and 2 by reaction 8. The branching ratio for reactions 7 and 8 with this 
projection is 


Rg) ^ ^ 7 ( 2 ) _ 0.976 + 0.197_ 

RO) + /?( 8 ) [^ 7 ( 1 ) + P^(2) +Pg(v=l, 8 ) ' (0.976 + 0.197) + 0.118 

where P 7 (v) represents the relative population in level v from reaction 7 and so forth. The 
branching ratio value is 0.91, in excellent agreement with other determinations. Thus, reaction 
8 is sufficient to account for the observed radiation at higher vibrational levels and it is not 
necessary to attribute the radiation to an additional source. It is therefore reasonable to take the 
NO"^ emission as predominantly due to reactions 7 and 8, in which case the nascent distribution 
in Table 1 is directly proportional to the detailed reaction rates. 

CONCLUSIONS 

Spectral measurements of the emission produced by energetic electrons impacting the 
atmosphere have been examined for infrared radiation from NO^. High resolution 
measurements by a Michelson-type interferometer spectrometer have produced spectra having 
about 2 cm ’ spectral resolution. An interferometer spectrum has permitted identification of over 
40 vibration-rotation lines belonging to NO^; thus, its identification has been established. From 
the spectrometer measurements and an ancillary measurement of the N 2 '’^ 3914 A emission, 
approximately 1.6 ± 0.9 NO^ photons per 3914 A photon was derived. The energy efficiency 
of NO^ photons produced relative to ion pair production was determined to be 6.1 x 10^ ±3.4 
X 10^. The emission from NO+ was severely quenched by electron recombination. A spectral 
model was developed and used to analyze the measured radiation. Analysis shows the emission 
is non-Boltzmann with high level vibrational levels being populated, but with a preponderance 
in levels 1 and 2. Source mechanisms were reviewed, with most-likely production mechanism 
of NO’’^ identified as the reaction of and O. The vibrational populations derived from the 
spectrum reflect the nascent distribution and the vibrational dependent reaction rates. 
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PART 4 


EXCEDE in SELECT SPECTRA 


INTRODUCTION 

The data returned from the EXCEDE III rocket borne measurement of the emissions 
produced by the action of a 2.6 KeV, 18 amp electron beam bombarding the atmosphere is very 
extensive. Presently the data base is being developed from the measurements by many 
instruments carried on board the experiment. Of this data, much interest is in the spectral 
measurements made with the Michelson type interferometer-spectrometer. By the nature of the 
interferometer, the data is extensive and requires substantial computer manipulations and detailed 
hand calculations in order to produce validated spectra. The process to produce the 
interferometer data base has recently been initiated but is as yet not complete. However, in the 
meantime, it has been suggested that it would be very beneficial to provide a sampling of the 
spectral data to permit judgment as to its applicability to a host of problems related to high 
altitude nuclear burst phenomenology. The purpose of this presentation is to make available a 
smattering of the spectra recovered from the experiment which covers the full spectral range (2 - 
22 micrometers) at the best resolution the data will accommodate. The resolution capability 
of the instrument is about 2 cm * but the signal-to-noise is not always sufficient to warrant 
producing the recovered spectra to that resolution. When the signal level is marginal the spectr^ 
resolution can be reduced in the computer calculations to give an improved signal to noise ratio 
in the recovered spectra. 

Three samplings of the spectral data from the interferometer are presented. They correspond 
to the occurrence of maximum energy dosing of the atmosphere by the bombarding electrons at 
an altitude of about 103 Km at IRIG time 7:03:23 of the day of the flight. The second series 
of spectra correspionds to the apogee of the flight, near 115 Km, occurring at IRIG time 7:04:10. 
The third series of spectra was collected on down-leg at 103 Km at an IRIG time of 7:05:07. 
In addition, spectra of the quiescent background for channel 2 at IRIG time 7:03:18 is provided 
since the natural background intensity is so important to the data in that spectral region. The 
channel 2 background emission shows relatively little change over the altitude of the flight, 
decreasing very slightly with altitude. 

The raw field data interferograms have undergone correction which includes de-trending, 
spike removal, ripple removal, hand filtering and so on. The spectra from channels 1 and 2 are 
the result of 8192 data points with triangular apodization. Channel 3 and 4, sampled at twice 
the interval are the result of 4096 point transforms corrected using the Mertz technique. The 
plots for 4 channels 1 and 2 have been interpolated by five using the zero fill method so that 
there are output points at about 0.2 cm *. Likewise, channels 3 and 4 are interpolated so that 
there are output points at about the same interval in wavenumbers. Thus, the output points in 
the plotted spectra are about ten times that of the spectral resolution. 
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Absolute intensity values are presented in the display and were obtained with the pre-flight 
calibration data supplied by Utah State University and, therefore, must be considered as 
preliminary. A complete post flight calibration would give more reliable absolute values for the 
spectral data. It is anticipated that such a post-flight calibration will be performed to give the 
more accurate values for the spectral radiance. With this calibration the final spectral 
measurements will be generated in absolute units. 

The spectra are presented as linear plot os radiance vs. wavenumber and simi-log plots of 
the same quantities. The nature of the plots easily permits identification of the intensity scales. 
Interesting spectral features are expanded to show the spectral features in more detail. The 
spectral channel and IRIG time are shown at the top of each plot. The format is to give the 
spectral events as designated by IRIG time. The resolution on the spectral plots of channel 1 
for events 4:10 and 5:07 include degrading the resolution to 12 and 50 wavenumbers due to the 
very weak intensity of the emission. This spectral resolution change is made very obvious by 
text included on these few plots. 
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Figure 1. EXCEDE III spectra — beam-on IRIG time 7:03:23, 103 km, channel 1 
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Figure 2. EXCEDE III sp>ectra — beam-on IRIG time 7:03:23, 103 km, channel 1 
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Figure 3. EXCEDE III semi-log sfjectra — 
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WAVfoNUMBRR 

Figure 4. EXCEDE III spectra - beam-on IRIG time 7:03:23, 103 km, channel 2. 
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Figure EXCHDE III spectra -- beam-on IRIG time 7:03:23, 103 km, channel 2. 
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WAVENUMBER 

Figure 6. EXCEDE III spectra - beam-on IRIG time 7:03:23, 103 km, channel 2 
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WAVENUMBER 

Figure 7. EXCEDE III spectra -- beam-on IRIG time 7:03:23, 103 km, channel 2 
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WAVENUMBER 

Figure 8. EXCEDE III spectra - beam-on IRIG time 7:03:23, 103 km, channel 2 
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7:03:23, 103 km, channel ^ 


























































EXCEDE III 
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WAVENUMBER/100 

Figure 10. EXCEDE III spectra - beam-on IRIG time 7:03:23, 103 km, channel 3. 
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Figure 11. EXCEDE III 
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WAVENUMBER 

Figure 12. EXCEDE III spectra -- beam-on IRIG time 7:03:23, 103 km, channel 4 
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WAVENUMBER 

Figure 14. EXCEDE III spectra - beam-on IRIG time 7:04:10, 115 km Channel 1. 
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WAVENUMBER 

Figure 15. EXCEDE III spectra -- beam-on IRIG time 7:04:10, 115 km Channel 1 
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WAVENUMBER 

Figure 17. EXCEDE III spectra - beam-on IRIG time 7:04:10, 115 km Channel 2. 
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Figure 19. EXCEDE III spectra - beam-on IRIG time 7:04:10, 115 km Channel 3. 
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WAVENUMBER/100 

Figure 20. EXCEDE III spectra - beam-on IRIG time 7:04:10, 115 km Channel 3 
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1e-012 
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WAVENUMBER 

Figure 23. EXCEDE III spectra - beam-on IRIG time 7:05:07, 103 km Channel 1 
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Figure 24. EXCEDE III spectra — beam-on IRIG time 7:05:07, 103 km Channel 2. 
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Figure 25. EXCEDE III spectra - beam-on TRIG time 7:05:07, 103 km Channel 2. 
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Figure 26. EXCEDE III semi-log spectra - beam-on IRIG time 7:05:07, 103 km Channel 2. 
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Figure 27. EXCEDE III spectra — beam-on IRIG time 7:05:07, 103 km Channel 3 
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WAVENUMBER /lOO 

Figure 28. EXCEDE III semi-log spectra — beam-on IRIG time 7:05:07, 103 km Channel 3. 
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Figure 29. EXCEDE III spectra — beam-on IRIG time 7:05:07, 103 km Channel 4. 
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Figure 31. EXCEDE III spectra — beam-off IRIG time 7:03:18, 100 km Channel 2. 
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Figure 32. EXCEDE III spectra - beam-off IRIG time7;03:18, 100 km Channel 2. 
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WAVENUMBER 

e 33. EXCEDE III sf)ectra -- beam-off IRIG time 7:03:18, 100 km Channel 2. 
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APPENDIX A 


REM 


MODEL FOR NO+ SPECTRA 


REM The EXCEED interferometer He-Ne laser wavenumber is 15798.0117 cm-1 , 

REM WHICH IS 10000/15798.0117 microns s 0.63299105 x 10-6 m s 
REM 6329.9105 Angstoms . Then for lamoa/2 sampling for 8192 points 
REM THE DRIVE IS L = 6329.9105 xlO-8 x8192 cm s 0.259273134 cm , and the 
REM OPTICAL PATH DIFFERENCE OPD = 2L = 2x0.259273134 = 0.518546268 cm . 

REM The sinc souared resolution is then RESL = 1/(2L) s 1.928468222 cm-1 . 
REM The spectral sampling is the 1.928468222/2 s 0.964234111 cm-1/point . 

REM WN(I)=1024.017+0.96423411*(I-l), so delta WN=0.96423411 cm-1 
REM I = 1 + INT( {WN-1024.017)/0.96«3411+0.5), 1=1 to 2048 , 

REM the same interval as the "band.exe" applied to exceed 8192 spectra 
REM files. Then WN(1)=1024.017 cm-1, WN(2048)=2997.804 cm-1 . 

REM The spectral sampling is 0.96423401 cm-1/interval, no interpolation. 

REM If we let WN(I)=1024.017+0.96423401*(I-1)/2 = 1024.017+0.482117005*(I-l) 
REM WN(1)=1024.017 , WN(4096)=2998.286 cm-1,which corresponds to the 
REM EXCEED spectra from “band.exe" applied to a 8192 point interferogram 
REM WITH A FACTOR OF TWO INTERPOLATION. 

REM Alternatively, for a factor of four interpolation then 
REM WN(I)=1024.017+0.96423401*(I-l)/4 which equals 
REM WN(I)=i024.017+0.241058502*(I-1). 

REM then I=1+INT(4.148370589*(WN-1024.017)+0.5) 

REM and WN(1)=1024.017, WN(8192)=2998.527 cm-1 . 

REM DELTA WAVENUMBER SAMPLING = DWN , CM-1 / POINT 

REM dWN = .482117005, and I = 1 + INT(2.074185291 * (WN - 1024.017)+.5) 

REM OWN = .241058502, and I = 1 + INT(4.148370589# * (WN -1024.017 )+.5) 


'FOR TRIANGULAR LINE SHAPE 

'G4 = 0.00 
'G3 = .25 
'G2 = .5 
'Gl = .75 
'GO = 1.00 

'For example, for a sinc squared line shape, resolution =3.86 cm-1 
'G3 = .0901 
'G2 = .4053 
'Gl = .8106 

OPEN "D:\QB45\N0PLUS.DAT" FOR INPUT AS II 
'DIM W(3000), SIGMAOOOO) 

'DIM BRANS(3000), ROTOOOO) 

'DIM MULT(3000), VIBOOOO) 

DIM G(20), PHOTON(8202)', SIGMA(8202) 

K = 0 
E0(0) = 0! 

EO(l) = 2344.16 
ED(2) = 4655.688 
E0(3) = 6934.433 
E0(4) = 9180.357 
E0(5) = 11393.35# 

E0(6) = 13573.32# 

E0(7) = 15720.17# 

E0(8) = 17833.81# 

PREL(O) = 1 
'PREL(l) = 1! 

'PREL(2) = .3 
'PREL(3) = .07 
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'PREL(4) = 0! 
'PREL(5) = 01 
'PREL(6) = 01 
'PREL(7) = 0! 
'PREL(8) = 0! 
'Tr = 320 


PRINT "ENTER Tr, PRELd), PREL(2). PREL<3), PREL(4), PREL(5), RESL, C, n" 
INPUT Tr, PREL(i), PREL(2), PREL(3), PREL(4), PREL(5), RESL, C, N 


B = 1.997 

Qr = Tr / (1.4387 * B) 
Qv = PREL(O) + PRELd) 
PI = 3.1415926# 
dWN = .241058502# 

'dWN = .482117005# 

'dWN = .96423401# 


+ PREL(2) + PREL(3) + PREL(4) + PREL(5) 


OWN / RESL) / (PI * J * dWN / RESL)) " 2 


FOR J = 1 TO 10 
G(J) = (SIN(PZ * J * 

NEXT J 

SUM = 0 

FOR J = 1 TO 10 
SUM =: SUM G(J) 

NEXT J 

SUM = 1 + 2 * SUM 
WHILE NOT EOFd) 

LINE INPUT #1, A$ ...V « ...... 

IF VAL(MIDS(a$, 36, 8)) - VAL(MID$(aS, 44, 8)) = 2 THEN GOTO SKIP 
IF MID$(a$, 59, 1) o %'• THEN GOTO SKIP 
IF VAL(MIDJ(a$, 36, 10)) >5 THEN GOTO SKIP 
BS = LEFT$(a$, LEN(a$) - 1) 

K = K + 1 

WN s VAL(LEFTS (A$, 10)) 

REM N IS AN ASSIGNED "SLIPPAGE" OF THE MODEL SPECTRUM FOR BEST FIT WITH DATA 

IF WN < 1024.017 THEN N = 0 
IF WN > 2998.527 THEN N = 0 

1=1+ INT(4.148370589# * (WN - 1024.017) + .5) + N 
'1=1+ INT(2.07418529# * (WN - 1024.017) + .5) 

'1=1+ INT((WN-1024.017) / .96423401# + .5) 

E = VAL(MID$(a$, 26, 10)) 

EE = WN + E 

vv = VAL(MID$(a$, 36, 8)) 

IF PREL(vv) = 0! THEN GOTO SKIP 

'VIB(I) = vv 

WRITE I, vv '. VIB(I) 

EREL = EE - EO(vv) 

J = VAL(MIDS(a$, 65, 5)) 

'ROT(I) = J 

IF MIDS(a$, 64, 1) = "P" THEN 
JJ = J - 1 
'BRANS (I) = "P" 

'MULT(I) = MULT(I) + 1 
END IF 

IF MIDS(aS, 64, 1) = "R" THEN 
JJ = J + 1 
'BRANS (I) = "R" 

'MULT(I) = MULTd) + 1 
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F = (2 * JJ + 1) * EXP(-1.4387 * EREL / Tr) / Qr 

INTEN = F * VAL(MID$(a$. 11, 10)) * PREL(vv) / Qv 

IF WN < 1024.017 THEN GOTO kiP 

'SIGMA(I) = WN 

P = INTEN / SUM 

PHOTON(I) = PHOTON(I) + P 

FOR J s 1 TO 10 

PHOTON(I - J) = PHOTON(I - J) + G(J) * P 
PHOTON(I + J) = PHOTON(I + J) + G(J) * P 
NEXT J 


SKIP: 
WEND 
CLOSE II 


WRITE "I, G(I) =", I, G(I) 

NEXT I 

'OPEN "NOPLUS.X" FOR OUTPUT AS #1 
'FOR I s 1 TO 8192 
'FOR I = 1 TO 4096 
'FOR I = 1 TO 2048 

'WRITE II, I, VIB(I), ROT(I), BRANJ(I), SIGHA(I), PHOTON(I), MULT(I) 
'WRITE II, I, SIGMA(I), C*Ph6T0N(I) 

'NEXT 
'CLOSE II 

OPEN "NOPLUS.S’* FOR OUTPUT AS II 

FOR I s 1 TO 8192 

'FOR I a 1 TO 4096 

'FOR I a 1 TO 2048 

WRITE II, C * PHOTON(I) 

NEXT 

CLOSE II 
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APPENDIX B 


$DEBUG 

SLARGE 

PROGRAM INTERP 

c RESEARCH SCIENCES CORPORATION 
c MHB 5/5/92 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


5 

7 

C 


Uses 2048 pozht file of only the znbano spectral points 
ORXOZNALLY FROM 8192 POINT EXCEED SPECTRA AND ZNTERPOUTES 
BY FACTORS OF 2 OR 4 AND URITES TO CORRESPONDING FILE. 


Nlrl338 AT 1289.181 cm-1. 

n2 s 2834 AT 2732.639 CM-i. where UN(I)- 0.0 + 0.96423401* (I-l) 

NEW START (Isl) AND END WAVENUMBERS OF 2048 FILE ARE 

FROM WN(I)sl289.181*0.96423401*(l-276). then 1^276 gives 1289.181 cm-1, 
1=1772 GIVES 2731.675, so 1=1 gives 1024.017 cm-1, and finally 
1=2048 GIVES 2997.804 

The new 4096 output file then has the original wave number WN(I) at 
the point 2*1-1 . 


real*4 INBUF(8194),0UTBUF(16386) 
complex*8 BUF(4096),BUF2(8192) 
COMMON /BLOCKl/ N0P,NDP2 


M=2 

Klsll 

K2=12 

11=1024 

Lls2048 

L2s4096 

NDP=8192 

N0P2=16384 

AQUIRE EXTERNAL FILE AND LOAD INTO INBUF 


write(*,*)'Aouire input file' 

writeU.*) 'ASC OR BINARY input file ? (A/B))' 

reao(*,'(A)')Q 

if((Q.EQ.'A'). or. <Q.EQ.'a')) goto 5 
CALL READBN(INBUF,L) 
goto 7 

CALL READAS(INBUF,L) 

WRITC(*,*)'number of POINTS IN FILE =',L 
MAKE COMPLEX BUF FROM INBUF 


10 

111 


DO 111 1=1.LI 

BUF(I)=INBUF(I) 

continue 


C***-lB MAKE REAL OUTBUF FOR TEST 

C do 105 1=1,2048 

C105 0UTBUF(I)=REAL(BUF(I)) 

C TEST OF BUF; WRITE OUTBUF TO FILE 
C call MKASC(OUTBUF,LI) 

C GOTO 120 

C***-1e 


C DO COMPLEX FT ON BUF 
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C RETURNS REAL PART AS = BUF(2*I), IMA6 PART AS BUF(2*I-1) 

CALL CFFT(BUF,K1,1,1.0) 

c***0b make real OUTBUF 
C DO 107 Isl,2048 

C107 OUTBUF(I)=REAL(BUF(I)) 

C TEST OF CFFT BUF: WRITE OUTBUF TO FILE 
C CALL MKASC(OUTBUF,LI) 

C GOTO 120 

C***0e 

C ADO ZEROS TO BUF(I) 

12 = 2*11 
13=3*11 
14=4*11 
111 = 11+1 
131=13+1 
DO 300 1=1,11 
300 BUF2(I)=BUF(I) 

DO 302 1=111,13 
302 BUF2(I)=(0.0,0.0) 

DO 304 1=131,14 
304 BUF2(I)=BUF(I>I2) 

CALL CIFT(BUF2,K2,1,1.0) 

C MAKE REAL OUTBUF 

DO 113 1=1,L2 

113 0UTBUF(I)=REAL(BUF2(I)) 

C***1b 

C urzte(*,*)'test of add zeros' 

C TEST OF ADD ZEROS: WRITE OUTBUF TO FILE 
C CALL MKASC(OUTBUF,L2) 

C GOTO 120 

C***1e 

C WRITE EXTRAPOLATED SPECTRUM TO FILE OR INTERPOLATE A(3AIN 

WRITE(*,*)' INTERPOLATION FACTOR IS'.M 

WRITE (*.*)' WRITE TO FILE OR INTERPOLATE AGAIN ? (W/I)' 

REAO(*, ' (A) ')(! 

IF ((Q.EQ.'I' ).OR. (Q.EQ.' I'))GOTO 116 

109 WRITE (*.*)'ASC OR BINARY output file ? (A/B))' 

read(*,MA)')Q 

IF( (Q.EQ.'A') .or. (Q.EQ. 'a' ) )goto 115 

CALL MKBIN(OUTBUF,L2) 

GOTO 120 

115 CALL MKASC(OUTBUF,L2) 

GOTO 120 

116 DO 117 1=1,L2 

117 INBUF(I)=OUTBUF(I) 
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11 = 2*11 

K1=K1+1 

K2=K2+1 

L1=2*L1 

L2=2*L2 

M=2*M 

GOTO 10 

120 CONTINUE 
END 


SUBROUTINE READAS(X,L) 

c READS AN ASCII 10000 POINT SINGLE COLUMN FILE 

real*4 X(10000) 
character*30 infile 

5 WRITE (*,*) ' ENTER ASCII INPUT FILE NAME ' 

read(*,*(A)') infile 

OPEN(1,FIlesINFILE,statuss'old’.forms'formatted ) 

WRITE (*,*)'ENTER NUMBER OF INITIAL POINTS IN FILE TO BE SKIPPED' 
read(*,*) nskip 


C FIRST NSKIP LINES ARE NOT WRITTEN TO FILE 


20 

200 


I1=1+NSKIP 
DO 20 1=1,10000 
M=I 


reao(1,*,enos200) xval 

if(I.L£.nskip)goto 20 

ISsI-NSKIP 

X(IS)=XVAL 

CONTINUE 

L=M-1-NSKIP 


WRITE (*.*) 'ALL DATA READ ' 
CLOSE(1) 


RETURN 

END 

C . , 

SUBROUTINE HKASCdNBUF, L) 

C OPENS AN ASCII FILE AND WRITES TO IT. L IS NUMBER OF POINTS. 


real*4 INBUF(l) 
character*30 OUTFILE 

WRITE (*.*) ' ENTER OUTPUT FILE NAME ' 
read(*,MA)') OUTFILE 

OPEN(1, FILEsOUTFILE, statuss'new',FORMS * FORMATTED ) 

100 format(E13.6) 

9 DO 7 1=1.L 

7 WRiTEd.lOO) INBUFd) 
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11 WR1TE(*,*) 'ALL DATA WRITTEN TO FILE ' 

CLOSE(1) 

RETURN 

END 


SUBROUTINE READBN(INBUF, k) 

character*30 infile 
real*4 INBUF (1) 

C READS A REAL*4 (RECORD LENGTH s RECL s 4 BYTES) BINARY INPUT FILE 
WRITE(*,*)'enter INPUT FILE NAME' 

read(*.MA)') infile 
N slOOOO 

WRITE(*,*)'enter number OF INITIAL POINTS IN FILE TO BE SKIPPED' 
REAO(*,*) NSKIP 

open(1,file=INFILE ,access='direct', recl=4,status='old') 

C FIRST NSKIP LINES ARE NOT WRITTEN TO FILE 

llsl-t-NSKIP 
DO 5 XsllfN 
MSI 

REAOd.RECal, ENDs6) XVAL 
INBUF (I-NSKIP)=XVAL 

5 CONTINUE 

6 KsM-l-NSKIP 


C 

C 


5 


CLOSE (1) 

RETURN 

ENO 


SUBROUTINE MKBIN(X.L) 

OPENS A BINARY FILE AND WRITES TO IT . 


real*4 X(1) 
character*30 OUTFILE 
LOGICAL EX 


WRITE(*,*) ' ENTER NEW OUTPUT FILE NAME ' 
read(*/(A)') OUTFILE 
INQUIRE (filesOUTFILE,EXISTsEX) 

WRITE(*,*) 'FILE ALREADY EXISTS' 

GOTO 5 

OPEN (1,filesOUTFILE, status='new',forms' BINARY') 


WRITE (1) (X(l),I=l,L) 

WRITE(*,*) 'ALL DATA WRITTEN TO FILE ' ^ , 

WRITE(*,*) 'NUMBER OF DATA POINTS IN OUT FILE IS'.L 
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CLOSE (1) 

RETURN 

END 
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APPENDIX C 




■m 


PROGRAM BAND 

c RESEARCH SCIENCES CORPORATION 
c MHB 5/5/92 


Makes 2048 point file of only the xnband spectral points 
FOR 8192 POINT EXCEED spectra and writes to corresponding file 
Given that the interferometer gives 0.96423401 cm-1/point sampling 
THEN the WAVENUMBER OF THE 8192 FILE IS WN(I)= 0.0 +0 96423401*(ill) 
Thus n1=1338 at 1289.181 cm-1, n2 = 2834 at 2732 639 cA-l, which are 

THE LIMITS OF THE RESPONSE FUNCTION CORRECTION FILE: 

The start and end wavenumbers are then 0.0 cm-1 and 7898.041 cm-1 

C The new 2048 file start (Isl) and end wavenumbers are NQU rm arm 

c FROM WN(I)=1289.181+0.96423401*(1-276)= 1024.017+0.96423401*(I-l) 
c then 1=276 GIVES 1289.181 cm-1, 1=1772 gives 2731.675, which are the 

C LIMITS OF THE RESPONSE FUNCTION CORRECTION FILE. 
c Then 1=1 gives 1024.017 cm-1, and finally 1=2048 gives 2997.804 

real*4 INBUF(8194),OUTBUF(2048) 

Ll=2048 


C AQUIRE EXTERNAL FILE AND LOAD INTO INBUF 


5 

7 


WRITE(*,*)'AQUIRE input FILE* 

WRITE (*.*)*ASC OR BINARY input file ? (A/B))' 
REAO(*, (A)')Q 

if((Q.EQ.'A*) .or. (Q.EQ. *a*))goto 5 
CALL READBN(INBUF,L) 

GOTO 7 

CALL READAS(INBUF, L) 

WRITE(*,*)'number of POINTS IN FILE =*,L 


C HARDWIRE N1,n2 


3 


n1=1338 

n2=2834 

n3=2048-(n2-n1+1) 

n4=INT(n3/2.0) 

n5=n3-n4 

n6=n2-n1+1 

WRITE (*,*)*n3,n4,n5, n6=' ,n3,n4,n5, n6 


DO 3 J=l,2048 
if(J.LT.n4+1)then 
OUTBUF(J)=0.0 
ELSEIF( J.GT. n6+n4)then 
OUTBUF(J)=0.0 


ELSE 

I=1338+J-n4-1 

0UTBUF(J)=INBUF(I) 

ENDIF 

CONTINUE 


write(*,*) *ASC OR BINARY output file ? (A/B))' 
read(*,'(A)')Q 

if((Q.EQ.'A'). or. (Q.EQ. 'a'))goto 117 
CALL MKBIN(OUTBUF,LI) 
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GOTO 120 

117 CALL MKASC(0UTBUF,L1) 

120 CONTINUE 

END 

C. 

SUBROUTINE READAS(X,L) 

C READS AN ASCII 10000 POINT SINGLE COLUMN PILE 

real*4 X(10000) 
character*30 infile 

5 WRITE(*.*) ' ENTER ascii INPUT FILE NAME ' 
read(*.MA)') infile 

OPEN (1,FILEsINFILE,STAJUS='OLD',F0RM=’FORMATTED') 

WRITE (*,*)'ENTER NUMBER OF INITIAL POINTS IN FILE TO BE SKIPPED' 
REAO(*,*) NSKIP 

C FIRST NSKIP LINES ARE NOT WRITTEN TO FILE 

Ilsl+NSKIP 
00 20 1 = 1,10000 
M=I 

read(1,*,end=200) xval 
IF(I.LE.NSKIP)GOTO 20 
ISsI'NSKIP 
X(IS)sXVAL 
20 CONTINUE 

200 LsM'I-nskip 

WRITE <*,*) 'ALL DATA READ ' 
close(I) 

RETURN 

END 

C . 

SUBROUTINE MKASCdNBUF, L) 

C OPENS AN ASCII FILE AND WRITES TO IT. L IS NUMBER OF POINTS. 

real*4 INBUF(l) 
ckaracter*30 OUTFILE 

WRITE (*.*) ' ENTER OUTPUT FILE NAME ' 
read(*,*(A)') OUTFILE 

OPEN(1, FILEsOUTFILE, STATUS='NEW',forms' FORMATTED' ) 

100 FORMAT (E13. 6) 

9 DO 7 1=1.L 

7 WRiTEd.iOO) INBUFd) 

11 WRITE(*,*) 'ALL DATA WRITTEN TO FILE ' 

CLOSE(1) 






RETURN 

END 

c. 

SUBROUTINE READBN(INBUF, k) 

character*30 ZNFILE 
real*4 INBUF(l) 

C READS A REAL*4 (RECORD LENGTH s RECL = 4 BYTES) BINARY INPUT FILE 

urite(*.*)'enter input file name' 
read(*,MA)') infile 

N=10000 


WRITE(*,*)'enter number OF INITIAL POINTS IN FILE TO BE SKIPPED' 
READ(*,*) NSKIP 


open(1,filesINFILE ,access='oirect', recl=4,status='old') 


C FIRST NSKIP LINES ARE NOT WRITTEN TO FILE 


5 

6 


llsl-t-NSKIP 
DO 5 isilfN 

MSI 


JEAOCl.RECsi, EN0 s 6) XVAL 
INBUF(l-NSKIP)SXVAL 
CONTINUE 
KsM-1-NSKIP 


CLOSE (1) 


RETURN 

END 


SUBROUTINE MKBIN(X,L) 

C OPENS A BINARY FILE AND WRITES TO IT . 

REAL*4 X(1) 
character*30 OUTFILE 

LOGICAL EX 

5 “‘*='TE<*,*) ' ENTER NEW OUTPUT FILE NAME ' 

reao(*,MA)') OUTFILE 
INQUIRE(filesOUTFILE,existsEX) 

IF (EX) THEN 

WRITE (*,*) 'FILE ALREADY EXISTS' 

GOTO 5 
ENDIF 

OPEN (1,filesOUTFILE, statuss 'NEW', forms 'BINARY') 

WRITE(l) (X(l),lsl,L) 

WRITE (*,*) 'ALL DATA WRITTEN TO FILE ’ 

WRITE (*.*)'NUMBER OF DATA POINTS IN OUT FILE IS'.L 
CLOSE(1) 


RETURN 

END 
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APPENDIX D 


$DEBUG 

$IARGE 

PROGRAM CNOP_OK 

c Research Sciences Corporation, Marshall H. Bruce , 08/17/93 


c 

c 

c 

c 

c 


with KW + 0, ^11+ *02 ..ch ..p.r.t.ly, 

aives 40 coupled ditferential equations. v 4 n 

- Pi(Xj'8,t), with Initial conditions Xi(tO) - Xio 

c delate all data types 

lSTEcS* 2 ^,Ie,IN 21 ,1021,INI,IOI,INOI,IM4s,IN2d,IEX,KX 

REAL H 

erravs for tine t, and the nunber densities for 
n 02+. 5+,^, N(4s), H(2d), and total NO+ respectivly 

REAL t(2500),e(2500),M2I(2500),021(2500)#^1(2500),01(2500) 

REAL N48(2500);H2d(2500),N01(2500),sunion(2500) 

c declare arrays for vibrational levels 

'real NOP10(2500),NOPll(2500),NOP12(2500),NOP13(2500) 

REAL N0P14(2500),N0P15(2500),NOP16(2500),N0P17(2500) 

REAL N0P18(2500),MOP19(2500),NOP110(2500),N0P111(2500) 

^ SoP112(2500)%OP113(2506) ,N0P114(2500) ,NOP115(2500) 

REAL MOP11'6(2500) 

c ^5 oP 21U500) ,N0P22 (2500) !jJOP23 (2500) 

REAL NOP24(2500) ,NOP25(2500) ,NOP26(2500) (**0P27 (2500) 

REAL NOP28(2500) ,NOP29(2500) »**OP210 (2500) ,NOP211 (2500) 

REAL NOP212(2500),NOP213(2500),NOP214(2500),NOP215(2500) 

REAL NOP216(2500) 

c declare chemistry coeffs 

REAL N2IMX,N2IMN,N0IMX,NPIMM 

REAL NIMX,NIMH,N4sMX,N4sMN,N2dMX,N2dMM 

2 SJiw N2dP0,H0IAl,N0IA2,H0IA3,N0IN2,N0IP2d,N0IP4s,0I02,0IN2, 

"K OM2I O2NI.02N48j0H2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2I0,0210,010,NIO,NOIO,H2D0,N4S0,PI,ASIG,SIWTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

7 NOIm'nOIA5!nOIA6,NOIA7,NOIA8,NOIA9,NOIA10,NOIA11,NOIA12, 

8 NOIB2 NOIB3, NOIB4 , NOIB5, NOIB6 ,NOIB7, NOIB8, KOIB9, NOIBIO, NOIBll, 

9 NOIA13,N0IA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 

real K1,K2,K3,K4,L1,L2,L3,L4 
REAL Ml,M2,M3,M4,Nl,N2,N3,N4 
REAL P1,P2,P3,P4,Q1,Q2,Q3,Q4 
REAL R1,R2,R3,R4,S1,S2,S3,S4 


c declare intemedeiate scalars for RK, 
c from tNl,.N0J116 . 


from tN,....NOIllS, and 
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REAL tN,eN,N2IN,02IN,0IN,NIN,N0IN,K2dN,N4sN 
REAL eNl,N2INI,02INI,OINl,NINl,NOINl,N2dNl,N4 sNl 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24«NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI21$,N.OI21$ 

REAL NOJ10,NOJ11,NOJ12,NOJ13 

REAL N0J14,N0J1S,N0J16,N0J17 

REAL NOJ18,NOJ19,NOJ110,NOJ111 

REAL NOJ112,NOJ113,NOJ114,NOJllS,NOJ116 

REAL NOJ20,NOJ21,NOJ22,NOJ23 

REAL NOJ24,NOJ25,NOJ26,NOJ27 

REAL NOJ28,NOJ29,NOJ210,NOJ211 

REAL NOJ212,NOJ213,NOJ214,NOJ215,NOJ216 

c add NO to the cheolstxy 
REAL NO(2SOO) 

REAL NONO,NON,NON1 
REAL N2IN0,02IN0,0IN0 

c make reaction coeffs. available to functions and subs 
COMMON /BLKl/NN«02,0,Tr,N2Ie,02le,Ole,NIe,NOIe, 

1 N2102,N210,N2IN4 s,02IN2d,N4 s021,N2de,NI02,NIO,N4 sPNI,N2 dPNI, 

2 N4SP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N21,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAl0,NOIAl1,NOIAl2, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,NOIB16 

c make reaction coeffs. for added NO available to functions and subs 
COMMON /BLK2/N2IN0,02IN0,0IN0 

c qfactr-1.0 

qfactr-17.0 

c****************** 

c initialize parameters 

c changing H by a factor of two to assure correct integration 
c H-1.OE-04 

H-0.5E-04 
c H-l.OE-5 

c number of points currently calculated 
NLIM-2500 

c assign 02, N2, O and temperature Tr at altitude: 
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c let altitude be 115 km 


c N2 ambient desity 
NN-7.46E+11 

c 02 ambient desity 
02-1.50E+11 

c O ambient desity 
0-1.35E+11 

c kinetic temerature at altitude 
Tr»300.0 

C Define reaction constants: 
c recombination coefficients with electrons 


c N2+ + e —> N2 

N2Ie-1.80E-07*(300./Tr)**(0.39) 

c 02+ + e —> 02 

02Ie-2.OE-07*(300/Tr)**(0.7) 

C 0+ + e ~> 0 

OIe-3.5E-12*(300/Tr)**(0.7) 

c N+ + e N 

NIe»3.5E-12*(300/Tr)**(0.7) 

c N0+ + e —> 1/2 N(4S) + 1/2 N(2D) + O 
N0Ie«4.2E-07*(300/Tr)**(0.85) 


(15) 

(16) 
(18) 
(19) 
(17) 


c **** test for overall neutrality for ion production and recombination only 
c goto 21 

c binary reaction constants 

c N2+ + 02 “> N2 + 02+ , charge exchange (20) 

N2I02-5.OE-ll*(300/Tr)**(0.8) 

N2IO - N0IP2d + NOIP4S + 0N2I, not used as such 

N2IO-2.66E-11*(300/Tr)**(.44) + .984E-11*(300/Tr)**(.44) 

N2+ + N(4S) —> N2 + N+ , charge exchange (23) 

N2IN4S-1.OE-ll 

02+ + N(2D) —> 02 + N+ , charge exchange (24) 

02IN2d-2.5E-10 

02+ + N(4S) —> N0+(v-0) + O, N0+(0), O creation (6) 

N4S02I-1.2E-10 

e + N(2D) —> e + N(4S) (28) 

N2de-3.3E-10*(300/Tr)**(-0.5) 

NI02 - NIP02 + N4SPNI + N2dPNI, not used as such 
NI02-3.0E-10 + 2.1E-10 + .90E-10 

c N+ + 02 —> N0+(v) + 0(1S,1D), shared amongst vibrational states (13) 
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NIP02-3.OE-10 


c 02+ + N2 —> N0+(0) + N0(0) (7) 

N202I-5.0E-16 

C N+ + 0 —> N(4S) + 0+ (25) 

NIO-l.OOE-12 

c N+ + 02 —> 02+ + N(4S) , charge exchange, excitation (27) 

N4SPNI-.90E-10 

C N+ + 02 —> 02+ + N(2D) (26) 


N2dPNI-2.lE-10 

c never used as such, since > N0IP4s 
c N4sPO-1.4E-ll*(300/Tr)**(0.44) 

never used as such, since - N0IP2d 

N2dP0-l.26E-11*(300/Tr)**(0.44) 

N0+(v) + N2 —> N0+(V-1) + N2 (14) 

NOIN2-7.0E-1,2 

N2+ + 0 —> N0+(v) + N(2D), shared amongst vibrational states (11) 

N0IP2d-l.26E-10*(300/Tr)**(.44) 

N2+ + 0 —> N0+(v) + N(4S), shared amongst vibrational states (12) 

N0IP4S-1.4E-10*(300/Tr)**(.44) 


0+ + 02 --> 02+ + 0 , charge exchange (22) 

0102-2.OE-11*(300/Tr)**(0.4) 

0+ + N2 —> N0+(0) + N(4S) (9) 

OIN2-1.2E-12*(300/Tr) 

N2+ + 0 —> N2 + 0+ , Charge exchange (21) 

0N2I-.984E-11*(300/Tr)**(0.44) 

N+ + 02 ~> 02+ + N(20) , charge exchange, excitation, - N2dPNI 

02NI-2.1E-10 

c N(4S) + 02 —> N0(v) + 0 , currently put in ground state (4) 

02N4 s-1.OE-12 *EXP(-322 0/Tr) 

c N(2D) + N2 ~> N(4S) + N2, (2) 

ON2d-6.7E-13 

C N(2D) + 02 —> N0(V) + 0(1D,3P) (3) 

02N2d-7.4E-12*(300/Tr)**(-.5) 

c N(2D) + N2 “> N(4S) + N2, (1) 

N2N2d-1.6E-14 

c N2+ + K0(0) —> NO+(0) + N2 , charge exchange (5) 

N2INO-3.3E-10 

c 02+ + N0(0) —> N0+(0) + 02 , Charge exchange (8) 

O2INO-4.4E-10 

c 0+ + N0(0) —> N0+(0) + O , charge exchange (10) 




OINO-8.OE-13 


c NO+(v) --> NO+(v-l) + hv , fundemental Einstein radiation coeffs. 
NOIAO-0.0 
NOIAl-10.9 
NOIA2-20.2 
NOIA3-28.4 
NOIA4-35.5 
NOIA5<-41.5 
NOIA6-46.6 
NOIA7-50.9 
N0IA8-54.3 
NOIA9-57.0 
NOIAlO-58.9 
NOIAll-60.2 
NOIA12-60.8 
NOIA13-60.7 
N0IA14-59.9 
NOIA15-0.0 
NOIA16-0.0 

c NO+(v) —> N0+(v-2) + hv , ist overtone, Einstein radiation coeffs. 
NOIBO-0.0 
NOIBl-0.0 
NOIB2-0.697 
NOIB3-1.93 
NOIB4-3.55 
NOIB5-5.74 
NOIB6-'8.24 
N0IB7-11,1 
NOIB8-14.2 
NOIB9-17.7 
NOIBlO-21.3 
NOIBll-25.1 
NOIB12-29.0 
NOIB13-33.2 
NOIB14-37.4 
NOIB15-0.0 
NOIB16-0.0 

c2l continue 

c ****** end neutrality test 


c define the beam ion production rates 
PI-3.1415926 

c ASIG is the Integrated 3914 A Intensity 
ASIG-23.99488E-fl4 

c SINTHT is the sin of the angle the line of sight vector makes 
c with the beam axis 

SINTHT-.7047292 

c WAISTE is the beam width ( in cm ) 

WAIST-226 

c QN2I is the beam N2-i- volumetric productuion rate 
QN2I-(14.1*ASIG*SINTHT)/(2*PI*WAIST**2) 
c put qfactr parameter as QN2I multiplier 
QN2I-qfactr*QN2I 





c Qe is the beam ion pair production rate, which is the electron 
c production rate 
c hardwire Qe at apogee 
c suspend hardwire Qe 
c Qe-2.0E+ll 

c then QN2I is.... 
c suspend QN2I 

C QN2I-(0.92*NN)/(1.15*NN+1.5*02+0.56*0)*Qe 

c Use QN2I directly from ASIG (the 3914 A intensity integrated over 
c the transverse beeun direction) Then Qe is: 

Qe-(1.15*NN+1.5*02+0.56*0)/(0.92*NN)*QN2I 
c 02+ beam production rate 

Q02I-02/(0.92*NN)*QN2I 

c 0+ (atomic oxygen ion) beam production rate 
QOI-(0.56*0)/(0.92*NN)*QN2I 

c define dose time, Vbeam is transverse beam velocity in cm/sec with 
c respect to atmosphere 
Vbeam-24500 

c tdose-3*WAIST/Vbeam 

c hardwire dose time 
tdose-.05 

c write parameters 

write(*,*)'NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie-', 

1 NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie 

write(*,*)'N2102,N210,N2IN4 s,02IN2 d,N4 S021-', 

2 N2102,N210,N2IN4 s,02IN2d,N4 s021 

write(*,*)'N2de,NI02,NIP02,N2021,NIO,N4 sPNI,N2dPNI-', 

3 N2de,NI02,NIP02,N202I,NIO,N4sPNI,N2dPNI 

write(*,*)'N4 sPO,N2dP0,NOIAl,N0IA2,N0IA3-', 

4 N4sPO,N2dPO,NOIAl,NOIA2,NOIA3 

write(*,*)'N0IN2,N0IP2d,N0IP4S,0102,0IN2-', 

5 N0IN2,N0IP2d,N0IP4s,0I02,0IN2 

write(*,*)'0N21,02NI,02N4 s,ON2d,02N2d,N2N2d-', 

6 0N2I,02NI,02N4s,0N2d,02N2d,N2N2d 

write(*,*)'NIO,NOIO,N2DO,N4SO-', 

8 NIO,NOIO,N2DO,N4SO 

write(*,*)'N2INO,02INO,OINO,ASIG,SINTHT,WAIST-», 

9 N2IN0,02INO,OINO,ASIG,SINTHT,WAIST 

write(*,*) 'QN2I,Q02I,Q0I,Qe-S 

1 QN2I,Q02I,Q0I,Qe 

write(*,*)'Vbeam,tdose-', 

2 Vbeam,tdose 

write(*,*) 

write(*,*)'hit enter to continue' 
read(*,*) 
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write(*,*)' computing chemistry set. • 

C ***************** 

c ***************** fourth order RUNGE-KUTTA -BEGIN- 

C ***************** 

c assign initial values 

to— tdose 
eO-0.0 
N2I0-0.0 
0210-0.0 
010-0.0 
NI 0-0.0 
NOIO-0.0 
N2d0-0.0 
N4S0-0.0 

NOIlO-0.0 

NOIll-0.0 

NOI12-0.0 

NOI13-0.0 

NOI14-0.0 

NOI15-0.0 

NOI16-0.0 

NOI17-0.0 

NOI18-0.0 

NOI19-0.0 

NOIllO-0.0 

NOIlll-0.0 

NOI112-0.0 

NOI113-0.0 

NOI114-0.0 

NOI115-0.0 

NOI116-0.0 

NOI20-0.0 

NOI21-0.0 

NOI22-0.0 

NOI23-0.0 

NOI24-0.0 

NOI25-0.0 

NOI26-0.0 

NOI27-0.0 

NOI28-0.0 

NOI29-0.0 

NOI210-0.0 

NOI211-0.0 

NOI212-0.0 

NOI213-0.0 

NOI214-0.0 

N0I215-0.0 

NOI216-0.0 

NONO-0.0 

c NONO-7.OE+7 

tN-tO 

eN-eO 

N2IN-N2I0 
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02IN-0210 

OIN-OIO 

NIN-NIO 

NOIN-NOIO 

NON-NONO 

N2dN-N2dO 

N4sN-N4sO 

C USE 4-TH ORDER RUNGE-KUTTA 
DO 10 I - 1,NLIM 

K1 « H*FK(tN,eN,N2IN,02IN,NIN,OIN,ROIN,H4sN,N2dN) ^ 

LI - H*FL(tN,eN,N2IN,02IN,NIN,0IN,N0N,N4sN,N2dN) 

Ml - H*FM(tN,eN,N2IN,02IN,NIN,OIN,NON,N4sN,N2dN) 

N1 - H*FN(tN,eN,N2IN,02IN,NIM,0IN,N0IN,N4sN,N2dN) 

PI - H*FP(tN,eN,N2IN,02IN,NIN,0IN,N0N,N4sN,N2dN) 

Q1 - H*FQ(tN,eN,N2IN,02IN,NIN,0IN,N0N,N4sN,N2dN) 

QUO - H*FQ10(tN,eN,N2IN,O2IN,NIN,OIN,NOI10,NOIll,NOI12, 

$N4sN,N2dN,NON) 

Qlll - H*FQll(tN,eN,N2IN,02IN,NIN,0IN,N0Ill,N0I12,N0I13, 

$N4sN;N2dN) 

Q112 - H*FQ12(tN,eN,N2IN,02IN,NIN,0IN,N0I12,N0I13,N0I14, 

$N4sN,N2dN) 

Q113 - H*FQ13(tN,eN,N2IN,02IN,NIN,0IN,N0I13,N0I14,N0I15, 

$N4sN,N2dM) 

Q114 « H*FQ14(tN,eN,N2IN,02IN,NIN,0IN,N0I14,N0I15,N0I16, 

$N4sN,N2dN) 

Q115 - H*FQ15(tN,eN,N21N,02IN,NIN,0IN,N0I15,N0I16,N0I17, 

$N4sN,N2dN} 

Q116 - H*FQ16(tN,eN,N2IN,02IN,NIN,0IN,N0I16,N0I17,N0I18, 

$N4sN,N2dN) 

Q117 - H*FQ17(tN,eN,N2IN,02IN,NIN,0IN,N0I17,N0I18,N0I19, 

$N4sN,N2dN) 

Q118 - H*FQ18(tN,eN,N2IN,O2IN,NIN,OIN,NOI18,NOI19,NOI110, 

$N4sN,N2dN) 

Q119 - H*FQ19(tN,eN,N2IN,O2IN,NIN,OIN,NOI19,NOI110,NOIlll, 

$N4sN,N2dN) 

QlllO - H*FQ110(tN,eN,N2IN,O2IN,NIN,OIN,NOI110,NOIlll,NOI112, 

$N4sN,N2dN) 

Q120 - H*FQ20(tN,eN,N2IN,O2IN,NIN,OIN,NOI20,NOI21,NOI22, 

$N4sN,N2dN,NON) 

Q121 - H*FQ21(tN,eN,N2IN,02IN,NIN,0IN,N0I21,N0I22,N0I23, 

$N4sN,N2dN) 

Q122 - H*FQ22(tN,eN,N2IN,02IN,NIN,0IN,N0I22,N0I23,N0I24, 

$N4sN,N2dN) 

Q123 - H*FQ23(tN,eN,N2IN,02IN,NIN,0ZN,N0I23,N0I24,N0I25, 

$N4sN,N2dN) 

Q124 - H*FQ24(tN,eN,N2IN,02IN,NIN,0IN,N0I24,N0I25,N0I26, 

$N4sN,N2dN) 

Q125 - H*FQ25(tN,eN,N2IN,02IN,NIN,0IN,N0I25,N0I26,N0I27, 

$N4sN,N2dN) 

Q126 - H*FQ26(tN,eN,N2IN,02IN,NIN,0IN,N0I26,N0I27,N0I28, 

$N4sN,N2dN) 

Q127 - H*FQ27(tN,eN,N2IN,02IN,NIN,0IN,N0I27,N0I28,N0I29, 

$N4sN,N2dN} 

Q128 - H*FQ28(tN,eN,N2IN,O2IN,NIN,OIN,NOI28,NOI29,NOI210, 
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$N4sN,N2dN) 

Q129 = H*FQ29(tN,eN,N2IN,O2IN,NIN,OIN,NOI29,NOI210,NOI211, 
$N4sN,N2dN) 

Q 1210 =■ H*FQ210(tN,eN,N2IN,O2IN,NIN,OIN,NOI210,NOI211,NOI212, 
$N4sN,N2dN) 

Q 1211 » H*FQ211(tN,eN,N2IN,02IN,NIN,0IN,K0I211,N0I212,N0I213, 
$N4sN,N2dN) 

Q 1212 = H*FQ212(tN,eN,N2IN,02IN,NIN,0IN,N0I212,N0I213,N0I214, 
$N4sN,N2dN) 

Q1213 « H*FQ213(tN,eN,N2IN,02IN,NIN,0IN,N0I213,N0I214,N0I215, 
$N4sN,N2dN) 

Q1214 = H*FQ214(tN,eN,N2IN,02IN,NIN,OIN-,NOI214,NOI215,NOI216, 
$N4sN,N2dN) 

R1 » H*FR{tN,eN,N2IN,02IN,NIN,0IN,N0IN,N4sN,N2dN) 

SI = H*FS(tN,eN,N2IN,02IN,NIN,0IN,N0IN,N4sN,N2dN) 

K2 =• H*FK(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 
1 .5*Pl,NOIN+.5*Ql,N4sN+.5*Rl,N2dN+.5*Sl) 

L 2 = H*FL(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 
1 .5*Pl,NON+.5*Ql,N4sN+.5*Rl,N2dN+.5*Sl) 

M 2 - H*FM(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 
1 .5*Pl,N0N+.S*Ql,N4sN+.5*Rl,N2dN+.5*Sl) 

N 2 - H*FN(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 
1 .5*Pl,NOIN+.5*Ql,N4sN+.5*Rl,N2dN+.5*Sl) 

P 2 « H*FP(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 
1 .5*Pl,N0N+.5*Ql,N4sN+.5*Rl,N2dN+.5*Sl) 

Q2 = H*FQ(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 

1 .5*P1,NON+.5*Q1,N4SN+.5*R1,N2dN+.5*S1) 

Q 210 = H*FQ10(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*Pl,NOI10+.5*Q110,NOIll+.5*Qlll,NOI12+.5*Q112,N4sN+.5*Rl, 
$N2dN+.5*Sl,N0N+.5*Ql) 

Q 211 =» H*FQll(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*Pl,NOIll+,5*Qlll,NOI12+.5*Q112,NOI13+.5*Q113,N4sN+.5*Rl, 
$N2dN+.5*Sl) 

Q 212 « H*FQ12(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,N0I12+.5*Q112,N0I13+.5*Q113,N0I14+.5*Q114,N4sN+.5*R1, 
$N2dN+.5*Sl) , 

Q213 “ H*FQ13(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$, OIN+.5*P1,N0I13+.5*Q113,N0I14+.5*Q114,N0I15+.5*0115,N4sN+.5*R1, 
$N2dN+.5*Sl) 

Q214 = H*FQ14(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*Pl,NOI14+.5*Q114,NOI15+.5*Q115,NOI16+.5*Q116,N4sN+.5*Rl, 
$N2dN+.5*Sl) 

Q215 = H*FQ15(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,0IN+.5*P1,N0I15+.5*Q115,N0I16+.5*Q116,N0I17+.5*Q117,N4 sN+.5*R1, 
$N2dN+.5*Sl) 

Q216 » H*FQ16{tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
S,OIN+.5*Pl,NOI16+.5*Q116,NOI17+,5*Q117,NOI18+.5*0118,N4sN+.5*Rl. 
$N2dN+.5*Sl) 

Q217 - H*FQ17(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*Pl,NOI17+.5*Q117,NOI18+.5*Q118,NOI19+.5*Q119,N4sN+.5*Rl, 
$N2dN+.5*Sl) 

Q 218 » H*FQ18(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,0IN+.5*P1,N0I18+.5*Q118,N0I19+.5*Q119,N0I110+.5*Q1110,N4sN+.5*R1, 
$N2dN+.5*Sl) 

Q219 » H*FQ19(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI19+.5*Q119,NOI110+.5*Q1110,NOI111+.5*Q1111, 



$N4sN+.5*R1,N2dN+.5*S1) 

Q2110 - H*FQ110(tN+.5*H,eN+.5*K1,N2IN+.5*L1,02IN+.5*M1,NIN+.5*N1 
$,OIN+.5*P1,NOI110+.5*Q1110,NOI111+.5*Q1111,NOI112+.5*Q1112, 

$N4sN+.5*R1,N2dN+.5*S1) 

Q220 - H*FQ20(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,KIN+.5*Nl 
$,OIN+.5*P1,NOI20+.5*Q120,NOI21+.5*Q121,NOI22+.5*Q122,N4SN+.5*R1, 
$N2dN+.5*S1,NON+.5*Q1) 

Q221 - H*FQ21(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*Pl,NOI21+.5*Q121,NOI22+.5*Q122,NOI23+.5*Q123,N4sN+.5*Rl, 
$N2dN+.5*Sl) 

Q222 - H*FQ22(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI22+.5*Q122,NOI23+.5*Q123,NOI14+.5*Q124,N4sN+.5*R1, 
$K2dN+.5*Sl) 

Q223 - H*FQ23(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI23+.5*Q123,NOI24+.5*Q124,NOI25+.5*Q125,N4sN+.5*R1, 
$N2dN-t-.5*Sl) 

Q224 - H*FQ24(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI24+.5*Q124,NOI25+.5*Q125,NOI26+.5*Q126,N4sN+.5*R1, 
$N2dN-i-.5*Sl) 

Q225 - H*FQ25(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*Pl,NOI25+.5*Q125,NOI26+.5*Q126,NOI27+.5*Q127,N4sN+.5*Rl, 
$N2dN+.5*Sl) 

Q226 - H*FQ26(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
S,OIN+.5*Pl,NOI26+.5*Q126,NOI27+.5*Q127,NOI28+.5*Q128,N4sN+.5*Rl, 
$N2dN+.5*Sl) 

Q227 - H*FQ27(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,0IN+.5*P1,NOI27+.5*Q127,KOI28+.5*Q128,NOI29+.5*Q129,N4sN+.5*R1, 
$N2dN+,5*Sl) 

Q228 - H*FQ28(tN+.5*H,eN+.5*Kl,N21N+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI28+.5*Q128,N0I29+.5*Q129,NOI210+.5*Q1210,N4sN+.5*R1, 
$N2dN+.5*Sl) 

Q229 - H*FQ29(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI29+.5*Q129,NOI210+.5*Q1210,NOI211+.5*Q1211, 

$N4SN+.5*R1,N2dN+.5*51) 

Q2210 - H*FQ210(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI210+,5*Q1210,NOI211+.5*Q1211,NOI212+.5*Q1212, 
$N4sN+.5*Rl,N2dN+.5*Sl) 

Q2211 - H*FQ211(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI211+.5*Q1211,NOI212+.5*Q1212,NOI213+.5*Q1213, 
$N4sN+.5*Rl,N2dN+.5*Sl) 

Q2212 - H*FQ212(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI212+.5*Q1212,NOI213+.5*Q1213,NOI214+.5*Q1214, 

$N4sN+.5*R1,N2dN+.5*51) 

Q2213 - H*FQ213(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl 
$,OIN+.5*P1,NOI213+.5*Q1213,NOI214+.5*Q1214,NOI215+.5*Q1215, 

$N4sN+.5*R1,N2dN+.5*51) 

Q2214 - H*FQ214(tN+.5*H,eN+.5*K1,N2IN+.5*L1,02IN+.5*M1,NIN+.5*N1 
$,OIN+.5*Pl,NOI214+.5*Q1214,NOI215+.5*Q1215,NOI216+.5*Q1216, 

$N4sN+.5*R1,N2dN+.5*51) 

R2 - H*FR(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 

1 .5*Pl,N0IN+.5*Ql,N4sN+.5*Rl,N2dN+.5*51) 

52 - H*F5(tN+.5*H,eN+.5*Kl,N2IN+.5*Ll,02IN+.5*Ml,NIN+.5*Nl,0IN+ 

1 .5*Pl,NOIN+.5*Ql,N4sN+.5*Rl,N2dN+.5*51) 


K3 - H*FK(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2,0IN+ 
1 . 5*P2, NOIN+. 5*Q2, N4sN+. 5*R2, N2<JN+. 5*52) 

L3 - H*FL(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2,0IN+ 




.5 *P2,NON+.5 *Q2,N4 8N+.5 *R2,N2dN+.5*S2) 

M3 - H*FM(tN+.5*H,eN+.5*K2,N21N+.5*L2,02IN+.5*M2,NIN+.5*N2,0IN+ 
.5*P2,NON+.5*Q2,N4SN+.5*R2,N2dN+.5*S2) 

N3 - H*FN(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2,0IN+ 

. 5*P2, NOIN+. 5*Q2, N4sN+. 5*R2, N2dN-l-. 5*S2) 

P3 - H*FP(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2,0IN+ 

.5 *P2,NON+.5*Q2,N4 sN+.5 *R2,N2dN+.5 *S2) 


1 eN+. 5*K2, N2IN+. 5*L2,02IN+. 5*M2 ,NIN+. 5*N2, OIN+ 

1 .5*P2,NON+.5*Q2 , N48N+.5*R2,N2dN+.5*S2) 

« 5*H,eN+.5*K2,N2IN-+.5*L2,02IN+. 5*M2,NIN+.5*N2 

$N2aN4-. 5*S2) 

c ,N2IN+. 5*L2,02IN+. 5*M2, NIN+. 5*N2 

9N2aN'f.5*S2) 

c • 5*H,eN+.5*K2,N2IN+. 5*L2,02IM+. 5*M2,NIN+. 5*N2 

^^'*^°^“'^‘®*®^^^'^°^^^'^*®*®214,N0I15+.5*Q215,N4sN+.5*R2, 
9N2aN+.5*S2) 

< iN2IN+. 5*L2,02IN+. 5*M2, NIN+. 5*N2 

• 5^S2) 

Q315 H*FQ15(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 

« • 5*H, eN+. 5*K2,N2IN+. 5*L2,02IN+. 5*M2, NIN+. 5*N2 

* nil i ® • 5*Q217 , N0I18+. 5*Q218, N4sN+. 5*R2, 

•5 ^S2) 

< • 5*H, eN+. 5*K2 ,N2IN+. 5*L2,02IN+. 5*M2,NIN+. 5*N2 

$N2dN+* 5*n) ® * ^**^^ ' 

e “ H*J’Q18(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 

<S ,N2IN+. 5*L2,02IN+. 5*M2 , NIN+. 5*N2 

$,0IN+.5*P2,N0I19+.5*Q219,NOI110+.5*Q2110,N0I111+.5*02111. 
$N4sN+.5*R2,N2dN+.5*S2) ' 

e ” ®*^Q^^°t^N+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 

$,OIN+.5*P2,NOI110+.5*Q2110,NOI111+.5*Q2111,NOI112+.5*Q2112, 
$N4sN+.5*R2,N2dN+.5*S2) “ 


Q320 - H*FQ20{tN+.5*H, 
$,0IN+.5*P2,NOI20+.5*Q220 
$N2dN+.5*S2,N0N+.5*Q2) 
Q321 - H*FQ21(tN+.5*H, 
$,OIN+.5*P2,NOI21+.5*Q221 
$N2dN+.5*S2) 

Q322 - H*FQ22(tN+.5*H, 
$,OIN+.5*P2,NOI22+.5*Q222 
$N2dN+.5*S2) 

Q323 - H*FQ23(tN+.5*H, 
$,0IN+.5*P2,NOI23+.5*Q223 
$N2dN+.5*S2) 

Q324 - H*FQ24(tN+.5*H, 
$,0IN+.5*P2,NOI24+.5*Q224 


eN+.5*K2,N2IN+ 

,NOI21+.5*Q221 

eN+.5*K2,N2IN+ 

,NOI22+.5*Q222 

eN+.5*K2,N2IN+ 

,NOI23+.5*Q223 

eN+.5*K2,N2IN+ 

,NOI24+.5*Q224 


eN+.5*K2,M2IN+ 

,NOI25+.5*Q225 


.5 *L2,02IN+.5 *M2,NIN+.5 *N2 
,NOI22+.5*Q222,N4sN+.5*R2, 

.5 *L2,02IN+.5 *M2,NIN+.5 *N2 
,N0I23+.5*Q223,N4SN+.5*R2, 

. 5 *L2,02IN+. 5 *M2, NIN+. 5 *N2 
,NOI14+.5*Q224,N4sN+.5*R2, 

.5 *L2,02IN+.5 *M2,NIN+.5 *N2 
,NOI25+.5*Q225,N4sN+.5*R2, 

.5*L2,02IN+.5*M2,NIN+.5*N2 
, NOI2 6+.5 *Q2 2 6,N4 SN+.5 *R2, 
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$N2dN+.5*S2) 

Q325 - H*FQ25(tN+.5*H,eN+.5*K2,M2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI25+.5*Q225,NOI26+.5*Q226,NOI27+.5*Q227,N4sN+.5*R2, 
$N2dN+.5*S2) 

Q326 - H*FQ26(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI26+.5*Q226,NOI27+.5*Q227,NOI28+.5*Q228,N4sN+.5*R2, 
$N2dN+.5*S2) 

Q327 - H*FQ27(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI27+.5*Q227,N0I28+.5*Q228,NOI29+.5*Q229,N4sN+.5*R2, 
$N2dN-<-.5*S2) 

Q328 - H*FQ28(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI28+.5*Q228,NOI29+.5*Q229,NOI210+.5*Q2210,N4sN+.5*R2, 
$N2dN+.5*S2) 

Q329 - H*FQ29(tN+.5*H,eN+.5*K2,N21N+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI29+.5*Q229,NOI21O+.5*Q2210,NOI211+.5*Q2211, 

$N4SN+.5*R2,N2dN+.5*S2) 

Q3210 - H*FQ210(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI210+.5*Q2210,NOI211+.5*Q2211,NOI212+.5*Q2212, 

$N4sN-f. 5*R2, N2dN+. 5*S2) 

Q3211 - H*FQ211(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI211+.5*Q2211,NOI212+.5*Q2212,NOI213+.5*Q2213, 
$N4sN+.5*R2,N2dN+.5*S2) 

Q3212 - H*FQ212(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,KIN+.5*N2 
$,OIN+.5*P2,NOI212+.5*Q2212,NOI213+.5*Q2213,NOI214+.5*Q2214, 

$N4sN-t-. 5*R2, N2dN-i-. 5*S2) 

Q3213 - H*FQ213(tN+.5*H,eN+.5*K2,N2IK+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI213+.5*Q2213,NOI214+.5*Q2214,NOI215+.5*Q2215, 

$N4sN+.5*R2,N2dN+.5*S2) 

Q3214 - H*FQ214(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2 
$,OIN+.5*P2,NOI214+.5*Q2214,NOI215+.5*Q2215,NOI216+.5*Q2216, 
$N4sN+.5*R2,N2dN+.5*S2) 


R3 - H*FR(tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2,0IN+ 
1 .5*P2,NOIN+.5*Q2,N4sN+.5*R2,N2dN+.5*S2) 

S3 - H*FS{tN+.5*H,eN+.5*K2,N2IN+.5*L2,02IN+.5*M2,NIN+.5*N2,0IN+ 
1 .5*P2,NOIN+.5*Q2,N4sN+.5*R2,N2dN+.5*S2) 

K4 ■ H*FK(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3,0IN+ 

1 P3,NOIN+Q3,N4sN+R3,N2dN+S3) 

Ij 4 - H*FL(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3,0IN+ 

1 P3,NON+Q3,N4sN-l'R3,N2dN+S3) 

M4 - H*FM(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3,0IN+ 

1 P3,N0N+Q3,N4 sN+R3,N2dN+S3) 

N4 - H*FN(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3,0IN+ 

1 P3,NOIN+Q3,N4sN+R3,N2dN+S3) 

P4 - H*FP(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3,0IN+ 

1 P3,NON-fQ3,N4sN+R3,N2dN+S3) 

Q4 - H*FQ(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3,0IN+ 

1 P3,NON+Q3,N4sN+R3,N2dN+S3) 

Q410 - H*FQ10(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,0IN+P3,NOI10+Q310,NOI11+Q311,NOI12+Q312,N4SN+R3, 

$N2dN+S3,NON+Q3) 

Q411 - H*FQll(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$, OIN+P3, NOI11+Q311, NOI12+Q312 , NOI13+Q313 , N4s^I+R3, 

$N2dN+S3) 

Q412 - H*FQ12(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI12+Q312,NOI13+Q313,NOI14+Q314,N4sN+R3, 
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$N2dN+S3) 

Q413 - H*FQ13(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,0IN+P3,NOI13+Q313,NOI14+Q314,NOI15+Q315,N4 sK+R3, 
$N2dN+S3) 

Q414 - H*FQ14(tN+H,eN+K3,N2IN+L3,02IM+M3,NIN+N3 
$,OIN+P3,NOI14+Q314,NOI15+Q315,NOI16+Q316,N48N+R3, 
$N2dN-i-S3) 

Q415 - H*FQ15(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI15+Q315,NOI16+Q316,NOI17+Q317,N4 8N+R3, 
$N2dN+S3) 

Q416 ■ H*FQ16(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
S,OIN+P3,NOI16+Q316,NOI17+Q317,NOI18+Q318,N4 8N+R3, 
$N2dN+S3) 

Q417 - H*FQ17(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI17+Q317,NOI18+Q318,NOI19+Q319,N4 8N+R3, 
$N2dN+S3) 

Q418 ■ H*FQ18(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI18+Q318,NOI19+Q319,NOI110+Q3110,N48N+R3, 
$N2dN-t-S3) 

Q419 - H*FQ19(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI19+Q319,NOI110+Q3110,NOI111+Q3111, 
$N4sN-t-R3,N2dN+S3) 

Q4110 - H*FQ110(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI110+Q3110,NOI111+Q3111,NOI112+Q3112, 
$N48N+R3,N2dN+S3) 

Q420 » H*FQ20(tN+H,eN+K3,N2IN+L3,O2IN+M3,NIN+N3 
$,OIN+P3,NOI2 0+Q3 2 0,NOI21+Q3 21,NOI2 2+Q3 2 2,N4 SN+R3, 
$N2dN+S3,NON+Q3) 

Q421 - H*FQ21(tN+H,eN+K3,N21N+L3,02IN+M3,NIN+N3 
$,OIN+P3,N0121+Q321,NOI22+Q322,NOI23+Q323,N4 SN+R3, 
$N2dN+S3) 

Q422 - H*FQ22(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI22+Q322,NOI23+Q323,NOI14+Q324,N4sN+R3, 
$N2dN+S3) 

Q423 - H*FQ23(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI23+Q323,NOI24+Q324,NOI25+Q325,N4sN+R3, 
$N2dN+S3) 

Q424 - H*FQ24(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI2 4+Q3 2 4,NOI2 5+Q3 2 5,NOI2 6+Q3 2 6,N4 SN+R3, 
$N2dN-<-S3) 

Q425 - H*FQ25(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI25+Q325,NOI26+Q32 6,NOI27+Q327,N48N+R3, 
$N2dN+S3) 

Q426 - H*FQ26(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,0IN+P3,NOI2 6+Q3 2 6,NOI2 7+Q3 2 7,NOI2 8+Q3 2 8,N4 8N+R3, 
$N2dN+S3) 

Q427 - H*FQ27(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI2 7+Q3 2 7,NOI2 8+Q3 2 8,NOI2 9+Q3 2 9,N4 8N+R3, 
$N2dN+S3) 

Q428 - H*FQ28(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI2 8+Q32 8,NOI2 9+Q3 2 9,NOI210+Q3 210,N4 SN+R3, 
$N2dN+S3) 

Q429 - H*FQ29(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI29+Q329,NOI210+Q3210,NOI211+Q3211, 
$N4sN+R3,N2dN+S3) 

Q4210 - H*FQ210(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI210+Q3210,NOI211+Q3211,NOI212+Q3212, 
$N4sN+R3,N2dN+S3) 

Q4211 - H*FQ211(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
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$,OIN+P3,NOI211+Q3211,NOI212+Q3212,NOI213+Q3213, 
$N4sN+R3,N2dN+S3) ’ 

Q4212 - H*FQ212(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3 
$,OIN+P3,NOI212+Q3212,NOI213+Q3213,NOI214+Q3214, 
$N4sN-l-R3,N2dN-<-S3) 

Q4213 - H*FQ213(tN+H,oN+K3,N2IN+L3,02IN+M3,NIM+N3 
$,OIN+P3,NOI213+Q3213,NOI214+Q3214,NOI215+Q3215, 
$N4sN+R3,N2dN-fS3) 

Q4214 - H*FQ214(tN+H,eN+K3,N2IN+L3,02IK+M3,NIM+M3 
$,OIN+P3,NOI214+Q3214,NOI215+Q3215,NOI216+Q3216, 
$N4sN-(-R3,N2dN+S3) 

R4 - H*FR(tN+H,eN+K3,N2IN+L3,02IN+M3,NIN+N3,0IN+ 

1 P3,KOIN+Q3,N4sN+R3,N2dN+S3) 

S4 - H*FS(tN+H,eN+K3,N2IN+L3,02IM+M3,NIN+N3,0IN+ 

1 P3,NOIN+Q3,N4sN+R3,N2dN+S3) 

tNl - tN + H 

eNl - eN + (Kl+2.*K2+2.*K3+K4)/6. 

N2IN1 - N2IN +(Ll+2.*L2+2.*L3+L4)/6. 

02IN1 - 02IN + (Ml+2.*M2+2.*M3+M4)/6. 

NINl - NIN + (Nl+2.*N2+2.*N3+N4)/6. 

OINl ■ OIN + (Pl+2.*P2+2.*P3+P4)/6. 

NONl - NON + {Ql+2.*Q2+2.*Q3+Q4)/6. 

NOJIO » NOI10+(Q110+2.*Q210+2.*Q310+Q410)/6. 

NOJll - NOIll+(Qlll+2.*0211+2.*Q311+Q411)/6. 

NOJ12 - NOI12+(Q112+2.*0212+2.*Q312+Q412)/6. 

NOJ13 - NOI13+(0113+2.*0213+2.*0313+0413)/6. 

NOJ14 - NOI14+(0114+2.*0214+2.*0314+0414)/6. 

NOJ15 - NOI15+(0115+2.*0215+2.*0315+0415)/6. 

NOJ16 - NOI16+(0116+2.*0216+2.*0316+0416)/6. 

NOJ17 ■ NOI17+(0117+2.*0217+2.*0317+0417)/6. 

NOJ18 - NOI18+(0118+2.*0218+2.*0318+0418)/6. 

NOJ19 - NOI19+(0119+2.*0219+2.*0319+0419)/6. 

NOJllO - NOI110+(01110+2.*02110+2.*03110+04110)/6 

NOJ20 - NOI20+(0120+2.*0220+2.*0320+0420)/6. 

NOJ21 - NOI21+(0121+2.*0221+2.*0321+0421)/6. 

NOJ22 - NOI22+(0122+2.*0222+2.*0322+0422)/6. 

NOJ23 - NOI23+(0123+2.*0223+2.*0323+0423)/6. 

NOJ24 - NOI24+(0124+2.*0224+2.*0324+0424)/6. 

NOJ25 - NOI25+(0125+2.*0225+2.*0325+0425)/6. 

NOJ26 ■ NOI26+(0126+2.*0226+2.*0326+0426)/6. 

NOJ27 - NOI27+(0127+2.*0227+2.*0327+0427)/6. 

NOJ28 - NOI28+(0128+2.*0228+2.*0328+0428)/6. 

NOJ29 - NOI29+(0129+2.*0229+2.*0329+0429)/6. 

NOJ210 - NOI210+(01210+2.*02210+2.*03210+04210)/6 

NOJ211 - NOI211+(01211+2.*02211+2.*03211+04211)/6 

NOJ212 - NOI212+(01212+2.*02212+2.*03212+04212)/6 

NOJ213 - NOI213+(01213+2.*02213+2.*03213+04213)/6 

NOJ214 - NOI214+(01214+2.*02214+2.*03214+04214)/6 

NOINl - 

$ NOJ10+NOJll+NOJ12+NOJ13+NOJ14+NOJ15+NOJ16+NaJ17+ 

$ NOJ18+NOJ19+NOJ110+NOJ20+NOJ21+NOJ22+NOJ23+ 

$ NOJ24+NOJ25+NOJ26+NOJ27+NOJ28+NOJ29+NOJ210+ 

$ NOJ211+NOJ212+NOJ213+NOJ214 

N4sNl - N4sN + (Rl+2.*R2+2.*R3+R4)/6. 
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N2dNl - N2dN +(Sl+2.*S2+2.*S3+S4)/6. 

t(I) - tNl 
e(I) « eNl 
N2I(I) - N2IN1 
021(1) - 02IN1 
NI(I) - NINl 
01(1) - OINl 
NOI(I) - NOINl 
NO(I) - NONl 

NOP10(I)-NOJ10 

N0P11(I)-N0J11 

NOP12(I)-NOJ12 

NOP13(I)>>NOJ13 

NOP14(I)-NOJ14 

NOP15(I)-NOJ15 

NOP16(I)-NOJ16 

NOP17(I)-NOJ17 

N0P18(I)-N0J18 

NOP19(I)-NOJ19 

NOP110(I)-NOJ110 

NOP20(I)«NOJ20 

NOP21(I)-NOJ21 

NOP22(I)*NOJ22 

NOP23(I)«NOJ23 

NOP24(I)-NOJ24 

NOP25(I)-NOJ25 

NOP26(I)«NOJ26 

NOP27(I)-NOJ27 

NOP28(I)<-NOJ28 

NOP29(I)«NOJ29 

NOP210(I)-NOJ210 

NOP211(I)-NOJ211 

NOP212(I)«NOJ212 

NOP213(I)-NOJ213 

NOP214(I)-NOJ214 

N4s(I) - N4sNl 
N2d(I) - N2dNl 

c writes in order to monitor code 

c write(*,*)'I,tN,t(I),eN,e(I),NOI(I),NOP10(I),N0P11(I),N0P12(I), 

c $ N0P13(I) ,NOP14(I)-M,tN,t(I) ,oN,e(I) ,NOI(I) ,NOP10(I) ,N0P11(I) , 

c $ NOP12(I),NOP13(I),NOP14(I) 

c write(*,*)'I,tN,t(I),eN,e(I),NOI(I),NOP20(I),N0P21(I),NOP22(I), 

c $ NOP23(I),NOP24(I)-',I,tN,t(I),eN,e(I),N0I(I),NOP20(I),N0P21(I), 

c $ NOP22(I),NOP23(I),N0P24(I) 


c write(*,*)'I,NO(I),Ft(t(I))-M,NO(I),Ft(t(I)) 

c write(*,*) 'I,NON,NONl,Ql,Q2,Q3,Q4-\I,NON,NONl,Ql,Q2,Q3,Q4 

c write(*,*) 'I,02N2d,02,N2d-SI»02N2d,02,N2d 

C write(*,*) 'I,02N4 s,02,N4s-',I,02N4s,02,N48 

c write(*,*) 'I,N2IN0,N2I,N0-',I»N2IN0,N2I,N0 

c write(*,*) 'I,02INO,02I,NO-\I,O2IN0,02I,N0 
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c 


writo(*,*) 'I,OINO,OI,NO-SI,OINO,OI,NO 


tN - tNl 
eM - eNl 
N2IN - N2IN1 
02IN «■ 02IN1 
NIN - NINl 
OIN - OINl 
NOIN - NOINl 
NON - NONl 

NOIIO ** NOJIO 
NOIll - NOJll 
NOI12 - NOJ12 
NOI13 - NOJ13 
NOI14 - NOJ14 
NOI15 - NOJ15 
NOI16 - NOJ16 
NOI17 - NOJ17 
NOI18 - NOJ18 
NOI19 - NOJ19 
NOIllO - NOJllO 

NOI20 « NOJ20 
NOI21 - NOJ21 
NOI22 - NOJ22 
NOI23 - NOJ23 
NOI24 « NOJ24 
NOI25 - NOJ2S 
NOI26 - NOJ26 
NOI27 - NOJ27 
NOI28 - NOJ28 
NOI29 - NOJ29 
NOI210 - NOJ210 
NOI211 >■ NOJ211 
NOI212 - NOJ212 
NOI213 - NOJ213 
NOI214 - NOJ214 


N4sN - N4sNl 
N2dN - N2dNl 

10 CONTINUE 

C ***************** ^ 

c ***************** FOURTH ORDER RUNCE-KUTTA -END- 

C ***************** 


c find the total ion number density s\u&ion(i) 
do 11 1-1,NLIM 

sumion(i)-N2I(i)+021(i)+NI(i)+01(i)+NOI(i) 

11 continue 

c sum the N0+ in the field of view, using (14 m / 245 m/s) -.057 sec in window 
c Iwin-INT(.057/H) 

c if(Iwin.gt.NLIM)then 
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c write(*,*)'Iwiri greater than NLIM' 

c goto 14 

c endif 

c sum^O.0 

c do 12 i-l,Iwin 

c sum«sum+NOI(1) 

ci2 continue 

c multiply by A, - 10.9 for NO+, v ■ 1 to 0 
c suffl-10.9*sum 

14 CALL MAXMlN(t,ItMX,tMX,ItMN,tMN,NLIM) 

CALL MAXHIN(e,IeMX,eMX,IeMN,eMN,NLIM) 

CALL MAXMIN(N2I,IN2IMX,N2IMX,IN2IMN,N2IMN , NLIM) 

CALL MAXMIN(021,102IMX,02IMX,102IMN,"02IMN,NLIM) 

CALL MAXMIN(NI,INIMX,NIMX,INIMN,NIMN,NLIM) 

CALL MAXMIN(01,lOIMX,OIMX,lOIMN,OIMN,NLIM) 

CALL MAXMIN(NOI,INOIMX,NOIMX,INOIMN,NOIMN,NLIM) 

CALL MAXMIN(N4 s,IN4 sMX,N4 sMX,IN4sMN,N4 sMN,NLIM) 

CALL MAXMIN(N2d,IN2dMX,N2dMX,IN2dMN,N2dMN,NLIM) 

CALL MAXMIN(sumion,IsMX,sMX,IsMN,sMN,NLIM) 

write(*,*)'H,qfactr -^,H,qfactr 
write(*,*)'Qe -',Qe 
write(*,*)'QN2I -',QN2I 
write(*,*)'tdose -',tdose 

write(*,*)'e(IeMX),sumion(leMX),NOI(leMX)-^ e(leMX),sumion(leMX) 
$ ,NOI(IeMX) 

WRITE(*,*) 'ItMN,tMN,ItMX,tMX-SItMN,tMN,ItMX,tMX 
WRITE(*,*) ^IeMX,eMX,IeMN,eMN-SIeMX,eMX,IeMN,eMN 
WRITE(*,*)'IN2IMX,N2IMX,IN2IMN,N2IMN-" 

1 ,IN2IMX,N2IMX,IN2IMN,N2IMN 

WRITE(*,*)'102IMX,02IMX,102IMN,02IMN-' 

1 ,102IMX,02IMX,102IMN,02IMN 

WRITE(*,*)'INIMX,NIMX,INIMN,NIMN-' 

1 ,INIMX,NIMX,INIMN,NIMN 

WRITE(*,*)'lOIMX,OIMX,lOIMN,OIMN-' 

1 ,IOIMX,OIMX,lOIMN,OIMN 

WRITE(*,*)'INOIMX,NOIMX,INOIMN,NOIMN-' 

1 ,INOIMX,NOIMX,INOIMN,NOIMN 

c WRITE(*,*)'IN4sMX,N4sMX,IN4sMN,N4sMN-' 

c 1 ,IN4sMX,N4sMX,IN4sMN,N4sHN 

c WRITE(*,*)'IN2dMX,N2dMX,IN2dMN,N2dMN-' 

c 1 ,IN2dMX,N2dMX,IN2dMN,N2dMN 

WRITE(*,*)'IsMX,SMX,IsMN,SMN-' 

1 , IsMX, SMX, IsMN, SMN 


c write(*,*)'N0+ line integral (photon8/cm2/s) in window is' sum 

c write(*,*) 

write(*,*)'hit enter to continue' 
read(*,*) 

write{*,*)'It,Ie,IN2I,IN0I -',It,Ie,INI,IN0I 

write(*,*)'make FILES, or EXIT?{enter F,or E)' 
read{*,'{A)')Q 

if((Q.EQ.'F').or.(Q.EQ.'f'))goto 17 
goto 900 




write(*,*)'enter name for 
CALL MKASC(sumlon,NLIM) 
write(*,*)'enter name for 
CALL MKASC(t,NLIM) 
write(*,*)'enter name for 
CALL MKASC(e,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N2I,NLIM) 
write(*,*)'enter name for 
CALL MKASC(02I,MLIM) 
write(*,*)'enter name for 
CALL MKASC(NI,NLIM) 
write(*,*)'enter name for 
CALL MKASC(OI,NLIH) 
write(*,*)'enter name for 
CALL MKASC(NOI,NLZM) 
write(*,*)'enter name for 
CALL MKASC(N4S,NLIM) 
write(*,*)'enter name for 
CALL MXASC(N2d,NLIM) 
write(*,*)'enter name for 
CALL MKASC(NO,NLIM) 

write(*,*)'enter name for 
CALL HKASC(NOP10,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P11,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P12,KLIM) 
write(*,*)'enter name for 
CALL HKASC(N0P13,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P14,NLIM) 
write(*,*)'enter n2une for 
CALL HKASC(N0P15,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P16,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P17,NLIH) 
write(*,*)'enter name for 
CALL MKASC(N0P18,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P19,NLIM) 
write(*,*)'enter name for 
CALL MKASC(NOP110,NLIH) 

write(*,*)'enter name for 
CALL HKASC(NOP20,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P21,NLIM) 
write(*,*)'enter name for 
CALL HKASC(NOP22,NLIM) 
write(*,*)'enter name for 
CALL HKASC(NOP23,NLIM) 
write(*,*)'enter name for 
CALL MKASC(NOP24,NLIM) 
write(*,*)'enter name for 
CALL MKASC(N0P25,NLIM) 
write(*,*)'enter n^e for 


"sumion" file' 
••time" file' 
"electron" file' 
"N2+" file' 

"02"+ file' 

"N+" file' 

«0+" file' 

"N0+" file' 


"N(4S)" 

file' 

"N(2D)" 

file' 

"NO" file' 

"NOPIO" 

file' 

"NOPll" 

file' 

"N0P12" 

file' 

"N0P13" 

file' 

"N0P14" 

file' 

"N0P15" 

file' 

"N0P16" 

file' 

"N0P17" 

file' 

"N0P18" 

file' 

"N0P19" 

file' 

"NOPllO' 

• file 

"N0P20" 

file' 

"N0P21" 

file' 

"N0P22" 

file' 

"N0P23" 

file' 

"N0P24" 

file' 

"N0P25" 

file' 

"N0P26" 

file' 




CALL MKASC(NOP26,NLIM) 

write(*,*)'enter name for ''NOP27" file' 

CALL MKASC(NOP27,NLIM) 

write(*,*)'enter name for ••NOP28'* file' 

CALL MKASC(NOP28,NLIM) 

write(*,*)'enter name for ''NOP29" file' 

CALL HXASC(NOP29,NLIM) 

write(*,*)'enter name for "NOP210" file' 

CALL MKASC(NOP210,NLIM) 

write(*,*)'enter name for "N0P2ll“ file' 

CALL HKASC(N0P211,NLIM) 

write(*,*)'enter name for ••NOP212" file' 

CALL MKASC(NOP212,NLIM) _ 

write(*,*)'enter name for "NOP213" file' 

CALL MKASC(NOP213,NLIM) 

write(*,*)'enter name for '•NOP214'* file' 

CALL MKASC(NOP214,NLIM) 

900 CONTINUE 
END 


FUNCTION Ft(t) 

c this function is the ABEL inverse transform of the 3914 A beam profile 
REAL F(200) 

REAL t 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,N1P02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NO10,N2DO,N4S0,PI,ASIG.SINTHT,WAIST, 

5 QN2X/Q02IIQOXIQ0| 

6 Vbeaniftdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,NOIA12, 

8 N0IB2,NOIB3,NOIB4,N0IB5,NOIB6,NOIB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,N0IB13,NOIB14,NOIB15,NOIB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2IO,N2IN4S,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNI,N2dPNI 

2 N4sPO,N2dPO,NOIAl,N0IA2,NOIA3,NOIN2,NOIP2d,NOIP4 s,0102,OIN2, 

3 0N2I,O2NI,O2N4s,0N2d,O2N2d,N2N2d,NIPO2,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 NOIA4,N0IA5,NOIA6,N0IA7,NOIA8,NOIA9,NOIAIO,NOIAll,NOIA12 

8 N0IB2,NOIB3,NOIB4,NOIB5,NOIB6,NOIB7,NOIB8,NOIB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 

DATA (F(I),1-1,151) / 

$0.0547970,0.0476440,0.0446150,0.0422104,0.0401156,0.0382139,0.036 

$4485,0.0347875,0.0332251,0.0317153,0.0302670,0.0288774,0.0275456,0 

$.0262514,0.0250175,0.0238452,0.0227012,0.0215997,0.0205397,0.01951 

$99,0.0185393,0.0175972,0.0166924,0.0158242,0.0149917,0.0141940,0.0 

$134302,0.0126995,0.0120010,0.0113337,0.0106968,0.0100894,0.0095106 

$2,0.00895943,0.00843498,0.00793635,0.00746268,0.00701305,0.0065863 

$9,0.00618207,0.00579910,0.00543665,0.00509384,0.00476987,0.0044638 

$9,0.00417514,0.00390282,0.00364618,0.00340451,0.00317704,0.0029631 
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$2,0.00276207,0.00257324,0.00239601,0.00222976,0.00207394,0.0019279 
$6,0.00179129,0.00166343,0.00154387,0.00143216,0.00132783,0.0012304 
$7,0.00113966,0.00105501,0.000976145,0.000903682,0.000835292,0.0007 
$71687,0.000712574,0.000657664,0.000606676,0.000559369,0.000515508, 
$0.000474845,0.000437186,0.000402320,0.000370058,0.000340217,0.0003 
$12637,0.000287158,0.000263630,0.000241918,0.000221893,0.000203429, 
$0.000186418,0.000170754,0.000156331,0.000143063,0.000130863,0.0001 
$19649,0.000109347,0.0000998881,0.0000912075,0.0000832445,0.0000759 
$416,0.0000692520,0.0000631233,0.0000575120,0.0000523779,0.00004767 
$95,0.0000433858,0.0000394625,0.0000358776,0.0000326035,0.000029618 
$2,0.0000268947,0.0000244104,0.0000221469,0.0000200855,0.0000182079 
$,0.0000164994,0.0000149452,0.0000135316,0.0000122469,0.0000110798, 
$0.0000100195,0.00000905756,0.00000818471-, 0.00000739278,0.000006674 
$85,0.00000602427,0.00000543516,0.00000490160,0.00000441877,0.00000 
$398196,0.00000358687,0.00000322977,0.00000290717,0.00000261576,0.0 
$0000235265,0.00000211521,0.00000190103,0.00000170791,0.00000153379 
$,0.00000137691,0.00000123562,0.00000110842,0.000000993985,0.000000 
$890965,0.000000798383,0.000000715139,0.000000640349,0.000000573175 
$,0.000000512873,0.000000458716,0.000000410144,0.000000366581,0.000 
$000327545,0.000000292543,0.000000261190 / 


c Ft-1.0 

c IF((t.LT.-tdose).OR.(t.GT.O))THEN 

c Ft-0.0 

c ENDIF 

This is the initial 3914 A bean profile, here not used directly, 
c define the normalized beam profile with parameters 
c where tdose-3*WAIST/Vbeam, 
c all tezms suspended 

c Ft- p**(l-l/p)/(2*WAIST*GAMMA(l/p))*EXP(-(l/p)* 

c 1 EXP(-(l/p)*ABS((Vbeam*t-CENTROID)/WAIST)**p) 
c hardwire f(t) 

c Ft-0.187373*EXP(-2.08538E>04*ABS(2.45E+04*t+211)**1.49) 

c this function is the ABEL inverse transform of the 3914 A beam profile 
c (done elsewhere) using the above data F(I) set as input 
c tdose - .05 sec 

c time inteval is H - .1 meter / 245 meters/sec - 0.000408163 sec 
c start at -tdose - -.05 sec, 

c tdose tine is .05 sec / .000408163 sec - 122.5 time intevals 

IF((t.GE.-tdose).AND.(t.LT.0.0))THEN 
I-INT(122.5-2450*(t+tdose)+l) 

Ft-F(I) 

ENDIF 

IF((t.GE.0.0).AND.(t.LE.tdose))THEN 
I-INT(2450*t+l) 

Ft-F(I) 

ENDIF 

IF((t.LT.-tdose).OR.(t.GT.tdose))THEN 

Ft-0.0 

ENDIF 

RETURN 

END 


e , the electron production and loss function 





o o 


FUNCTION FK(t,e,N2I,02I,NI,0I,N0I,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 
REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 s,02IN2d,N4 S021,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to, eO,N2IO, 0210,010, NIO,NOIO,N2DO,N4SO, PI, ASIG,SI'NTHT, WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeaa,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, . 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,O,Tr,N2Ie,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2IO,N2IN4s,02IN2d,N4a02I,N2de,NIO2,NIO,N48PNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0I02,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

FK-Qe*Ft(t)-(N2Ie*N2I+02Ie*02I+NIe*NI+0Ie*0I+ 

1 NOIe*NOI)*e 
RETURN 
END 


N2I , the N2+ production and loss function 

FUNCTION FL(t,e,N2I,02I,NI,0I,N0,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0,N4s,N2d 
REAL NN,02,0,Tr,N2Ie,02Ie,OIe,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102,0IN2, 

3 0N21,02NI,02N4 s,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeaia,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0iB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

REAL N2IN0,02IN0,0IN0 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0I02,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,NOIAl2, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, - 
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C N2+ 


1 


C- 

c 021, 


1 

2 

3 

4 

5 

6 

7 

8 
9 
$ 


1 

2 

3 

4 

5 

6 

7 

8 
9 
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c 02+ 


1 

2 


N0IB12,NOIB13,N0IB14,N0IB15,N0IB16 
COMMON /BLK2/N2IN0,02IN0,0INO 

FL-QN2I*Ft(t)-(N2Ie*e+0N2I*0+N0IP2d*0+N0IP4s*0+N2IN4s*N4s 
+N2I02*02)*N2I - N2INO*N2I*NO 


RETURN 

END 


the 02+ production and loss function 
FUNCTION FM(t,e,N2I,02I,NI,0I,N0,N4s,N2d) 


REAL t,e,N2I,O2I,NI,OI,N0,N4s,N2d 
REAL NN,02,0,Tr,N2Ie,02Ie,0Io,NIe,N0Ie, 

N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 
0N2I,02NI,02N4s,0N2d,02N2d,N2N2d,NIP02,N202I, 

to, eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

QN2I,Q02I,Q0I,Qe, 

VbeaiB, tdose, 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 
N0IA13,N0IA14,N0IA15,N0IA16, 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


REAL N2IN0,02IN0,0IN0 


COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0p, 

N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

N4SP0,N2dP0,NOIAl,N0IA2,N0IA3,N01N2,N0IP2d,N0IP4s,0102,0IN2, 
0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

to, eO,N2IO,0210,OIO,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 


QN2I,Q02I,Q0I,Qe, 

Vbeam,tdose, 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 
N0IA13,N0IA14,N0IA15,N0IA16, 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


COMMON /BLK2/N2IN0,02IN0,0IN0 

FM-Q02I*Ft(t)+(N4sPNI*02*NI+N2dPNI*02*NI+N2I02*02*N2I+ 
0102*02*01)-(02Ie*e+02IN2d*N2d+N4s02I*N4s+N202I*NN)*021 
-02IN0*02I*N0 






RETURN 

END 


NI the N+ production and loss function 

FUNCTION FN(t,e,N2I,02I,NI,0I,N0I,N4s,N2d) 


1 

2 

3 

4 

5 

6 


REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 
REAL NN,02,0,Tr,N2Io,02Ie,0Io,NIe,N0Ie, 

[J2I02, N2I0, N2IN4S, 02IN2d, N4s02I, N2de, NI02, NIO, N4sPNI, N2dPNI, 
M4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 
DN2I,02NI,02N4s,0N2d,02N2d,N2N2d,NIP02,N202I, 

to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

QN2I,Q02I,Q0I,Qe, 

Vheam,tdose. 
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7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,NOIA12, 

8 NOIB2,NOIB3,NOIB4,NOIB5,NOIB6,NOIB7,NOIB8,NOIB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 


COMMON /BLKl/NN, 02 , 0 ,Tr,N 2 le, 02 Ie,Ole,NIe,NOIe, 

1 N 2102 ,N 210 ,N 2 IN 4 s, 02 IN 2 d,N 4 s 021 ,N 2 de,NI 02 ,NIO,N 4 sPNI,N 2 dPNI, 

2 N 4 SP 0 ,N 2 dP 0 ,NOIAl , N 0 IA 2 ,N 0 IA 3 ,N 0 IN 2 ,N 0 IP 2 d,N 0 IP 4 S, 0 X 02 , 0 IN 2 , 

3 0N21,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e 0 ,N 2 I 0 , 0210 , 010 ,NIO,NOIO,N 2 DO,N 4 SO,PI,ASIG,SINTHT,WAIST, 

5 QN 2 I,Q 02 I,Q 0 I,Qe, 

6 Vbeam,tdose, 

7 N 0 IA 4 , N 0 IA 5 , N 0 IA 6 , N 0 IA 7 , N 0 IA 8 , N 0 IA 9 ", NOiXl 0 , NOIAll, N 0 IA 12 , 

8 N 0 IB 2 ,N 0 IB 3 ,N 0 IB 4 ,N 0 IB 5 ,N 0 IB 6 ,N 0 IB 7 ,N 0 IB 8 ,N 0 IB 9 ,NOIBIO,NOIBll, 

9 NOIA 13 ,NOIA 14 ,NOIA 1 S,NOIA 16 , 

$ N 0 IB 12 ,N 0 IB 13 ,N 0 IB 14 ,N 0 IB 15 ,N 0 IB 16 

c N+ 

FN- 0 . 2 S*QN 2 I*Ft(t)+(N 2 IN 4 s*N 4 s*N 2 I+ 02 IN 2 d*N 2 d* 02 I) 

1 -(NIe*e+NI 0 * 0 +NIP 02 * 02 +N 4 sPNI* 02 +N 2 dPNI* 02 )*NI 

RETURN 
END 


01 , the 0 + production and loss function 

FUNCTION FP(t,e,N2I,02I,NI,0I,N0,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0,N4s,N2d 
REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 s,02IN2d,N4 S021,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N21,02NI,02N4 8,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 V)eam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

REAL N2IN0,02IN0,0IN0 


'X 


A. 


COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4802I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102,0IN2, 

3 0N21,02NI,02N4 s,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLK2/N2INO,02INO,OINO 

c 0+ 

FP-(0.5 *Q021+QOI)*Ft(t) + (NIO*0*NI+ON21*0*N21) 

1 -(0Ie*e+0I02*02+0IN2*NN )*01 

2 -OINO*OI*NO 


RETURN 

END 
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c NO , the NO production and loss function 
c ( total NO, all vibrational levels lumped together) 

FUNCTION FQ(t,e,N2I,02I,NI,0I,N0,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0,N4s,M2d 
REAL NN,02,0,Tr,N2Ie,021e,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 S,02IN2d,N4 s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,OIO,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

REAL N2IN0,02IN0,0IN0 

COMMON /BLKl/NN,02,O,Tr,N2Ie,02le,Ole,NIe,NOIe, 

1 N2I02,N210,N2IN4s,02IN2d,N4s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 sPO,N2dP0,NOIAl,N0IA2,N0IA3,NOIN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N 2 IO,0210,010,NIO,N0I0,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLK2/N2INO,02INO,OINO 

c NO 

FQ- 

1 02N2d*02*N2d 

2 -»-02N4s*02*N4s 

3 -N2INO*N2I*NO 

4 -02IN0*02I*N0 

5 -OINO*OI*NO 

RETURN 

END 


N4s , the N(4S) production and loss function 

FUNCTION FR(t,o,N2I,02I,NI,0I,N0I,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 
REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 s,02IN2d,N4 s021,N2de,NI02,NIO,N4 sPNI,N2 dPNI, 

2 N4SP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 S,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAl1,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, • 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 
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c N(4S) 

1 

2 
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C- 

c N2d , 


1 

2 

3 

4 

5 
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8 
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C N(2D) 

1 

2 


COMMON /BLKl/NN,02,O,Tr,N2le,02le,Ole,NIe,NOIe, 

N2102,N2I0,N2IN4s,02IN2d,N4802I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

N4 sPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

QN2I,Q02I,Q0I,Qe, 

Vbeam,tdo8e, 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 
N0IA13,N0IA14,N0IA15,N0IA16, 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

FR-0.625*QN2I*Ft(t)+(N2de*e*N2d+N4sPNI*02*NI+0N2d*0*N2d 
+NOIP48*0*N2I+OIN2*NN*OI+0.07*N2Ie*e*N2I+N2N2d*NN*N2d+ 

0.24 *N0Ie*e*N0I+NI0*0*NI)-(N4s02I*021+N2IN4 8*N21+ 
02N48*02)*N48 

RETURN 

END 


the N(2D) production and loae function 
FUNCTION FS(t,e,N2I,02I,NI,0I,N0I,N4a,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N48,N2d 
REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

N2I02,N2I0,N2IN4S,02IN2d,N4802I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

N4 8P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

QN2I,Q02I,Q0I,Qe, 

Vbeam,tdose, 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 
N0IA13,N0IA14,N0IA15,N0IA16, 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

N2I02,N2I0,N2IN48,02IN2d,N48O2I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

QN2I,Q02I,Q0I,Qe, 

Vbeam,tdose, 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 
N0IA13,N0IA14,N0IA15,N0IA16, 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

FS-.625*QN2I*Ft(t)+(N2dPNI*02*NI+N0IP2d*0*N2I+ 
0.93*N2Ie*e*N2I+0.76*NOIe*e*NOI)-{O2IN2d*O2I+N2de*e+ON2d*O+ 
N2N2d*NN+02N2d*02)*N2d 

RETURN 

END 


NOllO(t), ( N0+, from N2+ + 0,in vibrational level 0 ) 

FUNCTION FQ10(t,e,N2I,O2I,NI,OI,NOI10,NOIll,NOI12,N4s,N2d,NO) 

REAL t,e,N2I,02I,NI,0I,N0,N4s,N2d 
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REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,N0I215,N0I216 
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REAL N2IN0,02IN0,0IN0 
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COMMON /BLK2/N2INO,02INO,OINO 

c from^N2+%^o"* assumes no ground state contribution 

c for non N0+ source we share the ground state production 50/50 
c here for FQIO and also for FQ20 ' 

FQIO ■ (0.0*NOIP2d*O*N2I + 0.0*NOIP4s*O*N2I) 

1 +( N2INO*N2I*NO + 02IN0*02I*N0 + OINO*OI*NO)/2 

2 -NOIe*e*NOI10 

3 -(NOIAO*NOI10-NOIA1*NOI11) 

4 -(NOIBO*NOI10-NOIB2*NOI12) • 

5 -(-N0IN2*NN*N0I11) 

RETURN 

END 


c NOlli(t), ( NO+, from N2+ + o,in vibrational level l ) 

FUNCTION FQll(t,e,N2I,02I,NI,0I,N0Ill,N0I12,N0I13,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 
REAL NOI14,NOI15,NOI16,NOI17 
REAL NOI18,NOI19,NOI110,NOI111 ' 


COMMON /BLKl/NN,02,O,Tr,N2le,02le,Ole,NIe,NOIe, 

N2I02,N2IO,N2IN4S ^ 02IN2d,N4802I,N2de,NI02 , NIO , N4sPNI,N2dPNI 

N 4 sPO,N 2 dPO,NOIAl,NOIA 2 ,NOIA 3 ,NOIN 2 ,NOIP 2 d,NOIP 4 s;ol 62 :OIN 2 
0N21,02NI,02N4s,0N2d,02N2d,N2N2d,NIW2,N202I, ^ 

WAIST, 

QN21,Q02I,Q0I,Qe, ' 

Vbeam,tdose, 

N0IA4,NOIA5,NOIA6,NOIA7,N0IA8,NOIA9,NOIAIO,NOIAll,N0IA12 
NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 


REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

IN48,02IN2d, N4S02I, N2de, NI02, NIO, N4SPNI, N2dPNI, 

» N0IN2> NOIP2d, NOIP4S, 0102,0IN2, 
0N21,02NI,02N4 s,0N2d,02N2d,N2N2d,NIP02,N2021, 

QN2i°Q02i°Q0I^Qe°^°' 

Vbeam,tdose, ' ' 

'N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

»N0IB5, N0IB6, N0IB7, N0IB8, N0IB9, NOIBIO, NOIBll, 
N0IA13,N0IA14,N0IA15,N01A16, 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


214 





REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOZ26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,MIe,N0Ie, 

1 N2102,N210,N2IN4s,02IM2d,N4 s021,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 S,0I02,0IN2, 

3 0N21,02NI,02N48,0N2d> 02K2d,N2N2d,NIP02,K2021, 

4 to,e0,N2I0,0210,010,NJO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbezun,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,O2Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N21,02NI,02N4 S,0N2d,02N2 d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeain,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0iA12, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQll - .5838*N0IP2d*0*N2I 

1 + .0600*NOIP4s*0*N2I 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -NOIe*e*NOIll 

4 -(NOIAl*NOIll-NOIA2*NOI12) 

5 -(NOIBl*NOIll-NOIB3*NOI13) 

6 -(NOIN2*NN*NOIll-NOIN2*NN*NOI12) 

RETURN 

END 


c N0Il2(t), ( N0+, from N2+ + 0,in vibrational level 2 ) 

FUNCTION FQ12(t,e,N2I,02I,NI,0I,N0I12,N0I13,N0I14,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,N0I215,N0I216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN48,02IN2d,N4s021,N2de,NI02,NIO,N4 sPNI,N2 dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 
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5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,NOIA12, 

8 NOIB2,NOIB3,NOIB4,NOIB5,NOIB6,NOIB7,NOIB8,NOIB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 

COMMON /BLKl/NN,02,O,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2102,N210,N2lN4s,02IN2d,N4s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, _ . . . 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ12 - .1731*N0IP2d*0*N2I 

1 + .0500*NOIP4s*0*N2I 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)* 0.0 

3 -N0Ie*e*N0I12 

4 “(NOIA2*NOI12-NOIA3*NOI13) 

5 -(NOIB2*NOI12-NOIB4*NOI14) 

6 -(NOIN2*NN*NOI12-NOIN2*NN*NOI13) 

RETURN 

END 


c N0I13(t), ( N0+, from N2+ + 0,in vibrational level 3 ) 

FUNCTION FQ13(t,e,N2I,02I,NI,OI,NOI13,NOI14,NOI15,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N48,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,NOI215,N0I216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N210,N2IN4s,02IN2d,N4s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbean,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,O,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4802I,N2de,NI02,NIO,N48PNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 
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4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,K0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ13 - 0.0*NOIP2d*0*N2I 

1 + .0394*NOIP4s*O*N2I 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)* 0.0 

3 -N0Ie*e*N0I13 . 

4 -(NOIA3*NOI13-NOIA4*NOI14) 

5 -(KOIB3*NOI13-NOIB5*NOI15) 

6 -(NOIN2*NN*NOI13-NOIN2*NN*NOI14) 

RETURN 

END 


N0ll4(t), ( N0+, from N2+ + o,in vibrational level 4 ) 

FUNCTION FQ14(t,e,N2I,02I,NI,0I,N0I14,N0I15,N0I16,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2102,N2I0,N2IN4s,02IN2d,N4 s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N21,02NI,02N4 s,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeain,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAl0,NOIAl1,NOIA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1. 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,O,Tr,N2le,02Ie,Ole,NIe,NOIe, 

1 N2102,N210,N2IN4s,02IN2d,N4 s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 sPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 S,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll. 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,NOIB16 


FQ14 ■ 0.0*NOIP2d*0*N2I 
1 + .0239*NOIP4S*0*N2I 
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2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -NOIe*e*NOI14 

4 -(NOIA4*NOI14-NOIA5*NOI15) 

5 -(NOIB4*NOI14-NOIB6*NOI16) 

6 -(NOIN2*NN*NOI14-NOIN2*NN*NOI15) 

RETURN 

END 


c NOIl5(t), ( NO+, from N2+ + 0,in vibrational level 5 ) 

FUNCTION FQ15(t,e,N2I,02I,NI,0I,N0I15,N0I16,N0I17,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL N0I14,N0I1S,N0I16,N0I17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24«NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,N0I214,NOI215,N0I216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2IO,N2IN4S,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N4 SPO,N2dPO,NOIAl,NOIA2,NOIA3,NOIN2,NOIP2d,NOIP4S,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 NOIA4,NOIA5,N0IA6,N0IA7,N0IA8,NOIA9,NOIAIO,NOIAl1,NOIAl2, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N01B8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2102,N210,N2IN48,02IN2d,N4802I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeaia,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,NOIB16 


FQ15 - 0.0*NOIP2d*0*N2I 

1 + .0227*NOIP48*0*N2I 

2 +(N4802I*02I*N48+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -N0Ie*e*N0I15 

4 -(NOIA5*NOI15-NOIA6*NOI16) 

5 -(NOIB5*NOI15-NOIB7*NOI17) 

6 -(NOIN2*NN*NOI15-NOIN2*NN*NOI16) 

RETURN 

END 

C- 

c N0I16(t), ( N0+, from N2+ + 0,in vibrational level 6 ) 

FUNCTION FQ16(t,e,N2I,02I,NI,pI,N0I16,N0I17,N0I18,N4s,N2d) 
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REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 


REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113 , N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2I«,021e,0Io,NIe,N0Ie, 

1 N2102,N210,N2IN4 s,02IN2d , N4 s02I,N2de , NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG.SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeaitt,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAl0,NOIAl1,N0IA12, 

8 N0IB2,N0IB3,N01B4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1. 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 

COMMON /BLKl/NN,02,O,Tr,N2le,02Ie,Ole,NIe,NOIo, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 S,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAl1,NOIAl2, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N01B6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll. 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ16 - 0.0*NOIP2d*0*N2I 

1 + .0165*NOIP4s*O*N2I 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -N0Ie*e*N0I16 

4 -(NOIA6*NOI16-NOIA7*NOI17) 

5 -(NOIB6*NOI16-NOIB8*NOI18) 

6 -(NOIN2*NN*NOI16-NOIN2*NN*NOI17) 

RETURN 

END 


c N0ll7(t), ( N0+, from N2+ + o,in vibrational level 7 ) 

FUNCTION FQ17(t,e,N21,021,NI,01,N0I17,N0I18,NOI19,N4S,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,N0I215,N0I216 
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REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN48,02IN2d,N4 s021,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N21,02NZ,02N4 8,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 t0,eO,N210,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,NOIBIS,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02Ie,Ole,NLe,NOIe, 

1 N2102,N210,N2IN48,02IN2d,N48021,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N48P0,M2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

3 0N21,02NI,02N48«0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeao,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIBIS,N0IB16 


FQ17 - 0.0*NOIP2d*0*N2I 

1 + .0232*NOIP48*0*N2I 

2 +(N4802I*02I*N4 S+N2021*NN*021+0IN2 *NN*OI)* 0.0 

3 -N0Ie*e*N0I17 

4 -(NOIA7*NOI17-NOIA8*NOI18) 

5 -(NOIB7*NOI17-NOIB9*NOI19) 

6 -(NOIN2*NN*NOI17-NOIN2*NN*NOI18) 

RETURN 

END 


N0I18(t), ( N0+, from N2+ + 0,in vibrational level 8 ) 

FUNCTION FQ18(t,e,N2I,O2I,NI,OI,NOI18,NOI19,NOI110,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN48,02IN2d,N4 8021,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 NOIA4,NOIAS,N0IA6,N0IA7,N0IA8,N0IA9,NOIAl0,NOIAl1,NOIAl2, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,N0IB7,NOIBS,N0IB9,NOIBIO,NOIBll, 

9 N0IA13,N0IA14,N0IA1S,N0IA16, 

$ N0IB12,N0IB13,N0IB14,NOIBIS,NOIBIS 




COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4SPO,N2dPO,NOfA1,NOIA2,NOIA3,NOIN2,NOIP2d,NOIP4 S,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,M0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ18 - 0.0*NOIP2d*0*N2I 

1 + .0075*NOIP4s*0*N2I 

2 +(N4sO2I*O2I*N4s+N2O2I*NN*O2I+OIN2*NN*OI)*0.0 

3 -N0Ie*e*N0I18 

4 -(NOIA8*NOI18-NOIA9*NOI19) 

5 -(NOIB8*NOI18-NOIB10*NOI110) 

6 -(NOIN2*NN*NOI18-NOIN2*NN*NOI19) 

RETURN 

END 


c N0Il9(t), ( N0+, from N2+ + 0,in vibrational level 9 ) 

FUNCTION FQ19(t,e,N2I,O2I,NI,OI,NOI19,NOI110,NOIlll,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,O2Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4 s,02IN2d,N4s021,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,NOIA3,N0IN2,N0IP2d,N0IP4 S,0I02,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIAlS,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,NOIe, 

1 N2102,N210,N2IN4 s,02IN2d,N48021,N2de,NI02,NIO,N4 sPNI,N2 dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N21,02NI,02N4 s,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 
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$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ19 - 0.0*NOIP2d*0*N2I 

1 + .0000*NOIP4S*0*N2I 

2 +(K4s02I*02I*N4s+N202I*NN*02I+OIN2*NN*OI)*0 .0 

3 -NOIe*e*NOI19 

4 -(NOIA9*NOI19-NOIA10*NOI110) 

5 -(NOIB9*NOI19-NOIBll*NOIlll) 

6 -(NOIN2 *NN*NOI19-NOIN2 *NN*NOI110) 

RETURN 

END 


NOIllO(t), ( NO+, from N2+ + 0,in vibrational level 10 ) 

FUNCTION FQ110(t,e,N2I,O2I,NI,OI,NOI10,NOIll,N0I12,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOIll,NOI12,NO113 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2IO,N2IN4S,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNl,N2dPNI, 

2 N4SPO,N2dPO,NOIAl,NOIA2,NOIA3,NOIN2,NOIP2d,NOIP4 s,0102,OIN2, 

3 ON2Z,02NI,02N4S,ON2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbean,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAl0,NOIAl1,NOIA12, 

8 NOIB2,NOIB3,NOIB4,NOIB5,NOIB6,NOIB7,NOIB8,NOIB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN48,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP48,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeaa,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAl0,NOIAl1,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQllO - 0.0*NOIP2d*0*N2I 

1 + 0.0*NOIP48*0*N2I 

2 +(N4 8021*021*N4 8+N2021*NN*021+0IN2 *NN*OI)* 0.0 

3 -NOIe*e*NOI110 

4 -(NOIA10*NOI110-NOIA11*NOI111) 

5 -(NOIB10*NOI110-NOIB12*NOI112) 

6 -(NOIN2*NN*NOI110-NOIN2*NN*NOI111) 

RETURN 
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END 


c NOllii(t), ( NO+, from N2+ + 0,ln vibrational level ii ) 

FUNCTION FQlll(t,e,N2I,02I,NI,0I,N0Illl,N0I112,N0I113,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4B,N2cl 


REAL NOI10,NOIlljNO112,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NO122,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 


1 

2 

3 

4 

5 

6 

7 

8 
9 
$ 


REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

, NIO, N4SPNI, N2dPNI, 
' N0IA2 , N0IA3, N01N2, N0IP2d, N0IP4 s, 0102,0IN2 
0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

QN2i°Q02i°Q0I^Qe°^°' 

Vbeam^tdose, 

N0IA4 , N0IA5 , N0IA6 , N0IA7,N0IA8,N0IA9 , NOIAIO,NOIAll,N0IA12 
N0IB12,N0IB13,N0IB14,NOIBIS,N0IB16 


1 

2 

3 

4 

5 

6 

7 

8 
9 
$ 


COMMON /BLKl/NN/02,0,Tr,N2Ie,02Ie,OIe,NIe,NOIe, 

N2I02,N2I0,N2IN4S,02IN2d,N4s02I , N2de,NI02,NIO,N4sPNI N2dPNI 

N48PO,N2dPO,NOIAl,NOIA2,NOIA3,NOIN2,NOIP2d,NOIP4s,OIOroiN2 
ON2I,O2Nl,02N4s,0N2d,O2N2d,N2N2d,NIPO2,N202I, , 

WAIST, 

QN2I,Q02I,Q0I,Qe, 

Vbeam,tdose, 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12 
N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


1 

2 

3 

4 

5 

6 


C 


FQlll - 0.0*NOIP2d*0*N2I 
+ 0.0*NOIP4s*0*N2I 


+(N4S02I*02I*N4S+N202I*NN*02I+0IN2*NN*0I)*0.0 
-NOIe*e*NOIlll 

-(N0IA11*N0I111-N0IA12*N0I112) 
-(NOIBll*NOIlll-NOIB13*NOI113) 
-(NOIN2*NN*NOIlll-NOIN2*NN*NOI112) 

RETURN 

END 


c N0Ill2(t), ( N0+, from N2+ + 0,in vibrational level 12 ) 

FUNCTION FQ112(t,e,N2I,02I,NI,0I,N0I112,N0I113,N0I114,N4s,N2d) 


REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 


REAL NOI10,NOI11,NOI12,NOI13 

REAL N0I14,N0I15,N0I16,N0I17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112, N0I113, N0I114, N0IH5, N0I116 


223 






REAL KOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOZ216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 s,02IN2d,N4s021,N2de,NI02,KIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,K0IP4 s,0X02,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4, N0IA5, N0IA6, N0IA7, N0IA8, N0IA9., NOIAIO, KOIAll, N0IA12, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NM,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4802I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 t0,eO,N210,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 VbeaiD,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAl1,NOIAl2, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ112 - 0.0*NOIP2d*0*N2I 

1 + 0.0*NOIP4s*0*N2I 

2 +(N4sO2I*O2I*N48+N202I*NN*02I+OIN2*NN*0I)*0.0 

3 -N0Ie*e*N0I112 

4 -(NOIA12*NOI112-NOIA13*NOI113) 

5 -(NOIB12*NOI112-NOIB14*NOI114) 

6 -(NOIN2*NN*NOI112-NOIN2*NN*NOI113) 

RETURN 

END 


c N0I113(t), ( N0+, from N2+ + 0,in vibrational level 13 ) 

FUNCTION FQ113(t,e,N2I,02I,NI,0I,N0I113,N0I114,N0I115,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,OIe,NIe,N0Ie, 

1 N2102,N210,N2IN4 8,02IN2d,N4 s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 
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6 

7 

8 
9 
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1 

2 
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5 

6 

7 

8 
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Vbeam,tdose, 

'NOIA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,NOIA12, 

NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02Ie,Ole,NIe,NOIe, 

f' ' N4S02I, N2de, N102, NIO, N4SPNI, N2dPNI, 

Si f ^, N0IP2d, N0IP4 s, 0102,0IN2, 

0N21,02NI,02N4 S,0N2d,02N2d,N2N2d,NIP02,N2021, 

?°ASo I °aSt ^?'°^°'*^^0'NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 
QN2I,Q02I,Q0I,Qe, ' 

Vbeam,tdose, 

' N0IA7, N0IA8, N0IA9, NOIAIO, NOIAll, N0IA12, 
N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ113 - 0.0*NOIP2d*0*N2I 

1 + 0.0*NOIP4s*O*N2I 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -N0Ie*e*N0I113 

4 -(N0IA13*N0I113-N0IA14*N0I114) 

5 -(NOIB13*NOI113-NOIB15*NOI115) 

6 -(N0IN2 *NN*NOI113-N0IN2 *NN*N0I114) 

RETURN 

END 


c 


N0I114(t), ( 

FUNCTION 


N0+, from N2+ + 0,in vibrational level 14 ) 

FQ114 ('t,e,N2I,02I,NI,0I,N0I114 ,NOI115,NOI116,N4s,N2d) 


REAL t,e,N21,02I,NI,0I,N0I,N4s,N2d 


REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL N0I24,N0I25,N0I26,N0I27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,N0I215,N0I216 


1 

2 

3 

4 

5 

6 

7 

8 
9 
$ 


REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

S? ^2?'IN4 s,02IN2d,N4 s02I,N2de,NI02,NIO,N4 sPNI N2dPNI 
N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102 0IN2’ 

ON2I,02NI,02N48,ON2d,02N2d,N2N2d,NIP02,N202i; ' ' 

WAIST, 

QN2I,Q02I,QOI,Qe, 

Vbeam,tdose, 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12 

nSSiI^S^^iSJ 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


1 

2 

3 

4 


COMMON /BLKl/NN,02,O,Tr,N2le,02le,Ole,NIe,NOIe, 

N2102,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNI N2dPNI 

Si , N0IP2d, N0IP4 sfoio2 :Sn 2 ! 

0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 
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5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,NOIA12, 

8 NOIB2,NOIB3,NOIB4,NOIB5,NOIB6,NOIB7,N01B8,NOIB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,MOIB16 


FQ114- 0.0*NOIP2d*0*N2I 

1 + 0.0'*NOIP4s*0*N2I 

2 + (N4s02I*02I*N4s-t-N202I*NN*02I-l-0IN2*NN*0I) * 0.0 

3 -N0Ie*e*N0I114 

4 -(NOIA14*NOI114-NOIA15*NOI115) 

5 -(NOIB14*NOI114-NOIB16*NOI116) 

6 -(N0IN2*NN*N01114-N0IN2*NN*N0I115) 

RETUPN 

END 


c N0l20(t), ( NO+, from N+ + 02,in vibrational level 0 ) 

FUNCTION FQ20(t,e,N2I,O2I,NI,OI,NOI20,NO121,NOI22,N4s,N2d,NO) 

REAL t,e,N2I,02I,NI,0I,N0,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N01213,N0I214,N0I215,N0I216 

REAL NN,02,0,Tr,N2Ie,02Ie,01e,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4S02I,N2de,NI02,NIO,N4sPNI , N2dPNI, 

2 N4SP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102,0IN2, 

3 0N21,02NI,02N4 s,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

REAL N2IN0,02IN0,0IN0 

COMMON /BLKl/NN,02,O,Tr,N2le,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN48,02IN2d,N4802I,N2de,NI02,NIO,N48PNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

3 0N21,02NI,02N4 8,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


COMMON /BLK2/N2IN0,02IN0,0IN0 . 
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c note that we hardwire SMITH,BIERBAUM,and LEONE population as the nascent 
c for all FQ2v's . 

c the first line is set to zero, assumes no ground state contribution 
c from N+ + 02+ 

c for non N0+ sources we share the ground state production 50/50 
c here for FQ20 and also for FQIO 

FQ20 - 0.0*NIP02*02*NI 

1 +( N2INO*N2I*NO + 02IN0*02I*N0 + 0IN0*0I*N0)/2 

2 -NOIe*e*NOI20 

3 -(NOIAO*NOI20-NOIA1*NOI21) 

4 -(NOIBO*NOI20-NOIB2*NOI22) 

5 -(-NOIN2*NN*NOI21) 

RETURN 

END 


c N0l2l(t), ( NO+, from N+ + 02,in vibrational level 1 ) 

FUNCTION FQ21(t,e,N2I,02I,NI,0I,N0I21,N0I22,N0I23,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL N0I14,N0I15,N0I16,N0I17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113 ,N0I114 ,N0I115,Nome 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,N0I213,N0I214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN48,021N2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4 SPO,N2dPO,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,NOIP4 s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,NOIA8,NOIA9,NOIAIO,NOIAll,N0IA12, 

8 NOIB2,N0IB3,NOIB4,N0IB5,NOIB6,NOIB7,NOIB8,N0IB9,NOIBIO,NOIBl1. 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,O,Tr,N2Ie,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4SPO,N2dP0,NOIAl,NOIA2,N0IA3,NOIN2,N0IP2d,N0IP48,0102,OIN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeeun,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,NOIA8,NOIA9,NOIAIO,NOIAll,NOIA12, 

8 N01B2,N0IB3,N0IB4,N0IB5,N0IB6,NOIB7,N0IB8,NOIB9,NOIBIO,NOIBll, 

9 N0IA13,N0IA14,N0IA15,N0IA16, 

$ N0IB12,NOIB13,N0IB14,N0IB15,NOIB16 


FQ21 - 

1 .055*NIPO2*O2*NI 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)*0.0 
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3 -N0Ie*e*N0I21 

4 -(NOIAl*NOI21-NOIA2*NOI22) 

5 -(NOIBl*NOI21-NOIB3*NOI23) 

6 -(NOIN2*NN*NOI21-NOIN2*NN*NOI22) 
RETURN 

END 


c NOI22(t), ( N0+, from N+ + 02,in vibrational level 2 ) 

FUNCTION FQ22(t,e,N2I,02I,NI,OI,NOI22,NOI23,NOI24,N4s,N2d) 


REAL t,e,N2I,02I,NI,0I,N0I,N48,N2d 


REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,N0I215,N0I216 


1 

2 

3 

4 

5 

6 

7 

8 
9 
$ 


REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

N2I02,N2I0,N2IN48,02IN2d,N4802I,N2de,NI02,NIO,N4SPNI,N2dPNI, 
N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 
0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

to,eO,N 2 IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 
QN2I,Q02I,Q0I,Qe, 

Vbeam,tdo8e, _ 

N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 
N0IA13,N0IA14,N0IA15,N0IA16, 

N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


COMMON /BLKl/NN,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2I02,N210,N2IN48,02IN2d,N4802I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,NOIA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdo8e, _ 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,NOIB15,N0IB16 


FQ22 ■ 

1 .069*NIP02*02*NI 

2 +(N4802I*02I*N48+N202I*NN*02I+OIN2*NN*OI)*0.0 

3 -NOIe*e*NOI22 

4 -(NOIA2*NOI22-NOIA3*NOI23) 

5 -(NOIB2*NOI22-NOIB4*NOI24) 

6 -(NOIN2*NN*NOI22-NOIN2*NN*NOI23) 

RETURN 

END 

-- 

c NOI23{t), ( N0+, from N+ + 02,in vibrational level 3 ) 

FUNCTION FQ23(t,e,N2I,02I,NI,0I,N0I23,N0I24,N0I25,N4s,N2d) 


REAL t,e,N2I,O2I,NI,0I,N0I,N48,N2d 
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REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL N0I28,N0I29,N0I210,N0I211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN48,02IN2d,N4802I,N2de,NI02,NIO,K4sPNI,N2dPNI, 

2 N4 8P0,N2dPO,NOIAl,NOIA2,NOIA3,NOIN2,NOIP2d,NOIP4 8,0102,OIN2, 

3 0N2I,02NI,02N48 , 0N2d,02N2d,N2N2d,NIP02;N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,QOI,Qe, 

6 Vbeam,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,M0IB8,N0IB9,NOIBIO,NOIBl1 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,O,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN48,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 VbeaiB,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ23 - 

1 .092*NIPO2*O2*NI 

2 +(N4802I*02I*N48+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -NOIe*e*NOI23 

4 -(NOIA3*NOI23-NOIA4*NOI24) 

5 -(NOIB3*NOI23-NOIB5*NOI25) 

6 -(NOIN2*NN*NOI23-NOIN2*NN*NOI24) 

RETURN 

END 


NOI24(t), ( N0+, from N+ + 02,in vibrational level 4 ) 

FUNCTION FQ24(t,e,N2I,02I,NI,OI,NOI24,NOI25,NOI26,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N48,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,N0I215,N0I216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 




1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4SP0,N2dP0,NOIAl,NOIA2,NOIA3,NOIN2,NOIP2d,NOIP4s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,M2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN48,02IN2d,N4s021,N2de,NI02,NIO,N4 sPMI,N2dPNI, 

2 N4SP0, N2dP0, NOIAl, N0IA2, N0IA3, N0lN2", N0iP2d, N0IP4 s, 0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12, N0IB13, N0IB14, N0IB15, NO'lBlS 


FQ24 - 

1 .112*NIP02*02*NI 

2 +(N4s02I*02I*N48+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -NOIe*e*NOI24 

4 -(NOIA4*NOI24-NOIA5*NOI25) 

5 -(NOIB4*NOI24-NOIB6*NOI26) 

6 -(NOIN2*NN*NOI24-NOIN2*NN*NOI25) 

RETURN 

END 


N0I25(t), ( N0+, from N+ + 02,in vibrational level 5 ) 

FUNCTION FQ25(t,e,N2I,02I,NI,OI,NOI25,NOI26,NOI27,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4802I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4 8P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbean,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,NOIB16 





COMMON /BLKl/NN,02,O,Tr,N2Ie,02le,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4s02I,N2de,NI02 , NIO,N4sPNI,N2dPNI, 

2 N4SP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N21,02NI,02N4S,0N2d,02N2d,N2N2d# NIP02,N202I, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2 DO,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeeun,tdose, 

7 N0IA4 , NOIAS,N0IA6,N0IA7 , N0IA8 , N0IA9,NOIAl0,NOIAl1 , NOIAl2, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ25 - 

1 .127*NIP02*02*NI 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)* 0 .0 

3 -NOIe*e*NOI25 

4 -(NOIA5*NOI25-NOIA6*NOI26) 

5 -(NOIB5*NOI25-NOIB7*NOI27) 

6 -(NOIN2*NN*NOI25-NOIN2*NN*NOI26) 

RETURN 

END 


c NOI26(t), ( N0+, from N+ + 02,in vibrational level 6 ) 

FUNCTION FQ26(t,e,N2I,02I,NI,OI,NOI26,NOI27,NOI28,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN48,02IN2d,N4 s021,N2de,NI02,NIO,N4 sPNI,N2dPNI 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2. 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST. 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, ' 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 S,0102,0IN2. 

3 0N21,02NI,02N4 S,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, ' ' 

6 Vbeam,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,NOIB15,NOIB16 
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FQ26 - 

1 .147*NIP02*02*NI 

2 +(N4 S021*021*N4 S+N2021*NN*02I+0IN2 *NN*0I)* 0.0 

3 -NOIe*e*NOI26 

4 -(NOIA6*NOI26-NOIA7*NOI27) 

5 -(NOIB6*NOI26-NOIB8*NOI28) 

6 -(NOIN2*NN*NOI26-NOIN2*NN*NOI27) 

RETURN 

END 


NOI27(t), ( N0+, from N+ + 02,in vibrational-level 7 ) 

FUNCTION FQ27(t,e,N21,021,NI,01,NOI27,NOI28,N0I29,N4s,N2d) 

REAL t,e,N2I,O2I,NI,OI,N0l,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL N0I14,N0I15,N0I1£,N0I17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4s,O2IN2d,N4sO2I,N2de,NI02,NI0,N48PNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102,0IN2, 

3 0N21,02NI,02N4 s,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,eO,N210,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4S02I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N4 sPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbe 2 un,td 08 e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ27 - 

1 .171*NIP02*02*NI 

2 +(N4802I*02I*N48+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -N0Ie*e*N0I27 

4 -(NOIA7*NOI27-NOIA8*NOI28) 

5 -(NOIB7*NOI27-NOIB9*NOI29) 

6 -(NOIN2*NN*NOI27-NOIN2*NN*NOI28) 

RETURN 

END 





c NOI28(t), ( N0+, from N+ + 02,in vibrational level 8 ) 

FUNCTION FQ28(t,e,N2I,O2I,NI,OI,NOI28,NOI29,NOI210,N4s,N2d) 

REAL t,e,N2I,02I,Nl,0I,N0I,N4a,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOIUO,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL.NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 S,02IN2d,N4s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 sPO,N2dP0,NOIAl,N0IA2,N01A3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,ge, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 s,02IN2d,N4S02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 sPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to, eO,N2IO,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,NOIAS,N0IA6,N0IA7,NOIA8,N0IA9,NOIAIO,NOIAl1,NOIAl2, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ28 - 

1 .073*NIP02*02*NI 

2 +(N4 S021*021*N4 S+N2021*NN*021+0IN2 *NN*OI)* 0.0 

3 -NOIe*e*NOI28 

4 -(NOIA8*NOI28-NOIA9*NOI29) 

5 -(NOIB8*NOI28-NOIB10*NOI210) 

6 -(NOIN2*NN*NOI28-NOIN2*NN*NOI29) 

RETURN 

END 


c NOI29(t), ( N0+, from N+ + 02,in vibrational level 9 ) 

FUNCTION FQ29(t,e,N2I,O2I,NI,OI,NOI29,NOI210,NOI211,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 
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REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,N0I215,N0I216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ia, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4802I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N4sPO,N2dPO,NOIAl,NOIA2,NOIA3,N01N2,NOIP2d,NOIP4s,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to, e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG.SINTHT,WAIST. 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9.NOIAIO,NOIAl1, N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0iB7,NOIBS,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2Ie,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN48,02IN2d,N4802I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N01P2d,N0IP4 8,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll, N0IA12, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ29 - 

1 .006*NIP02*02*NI 

2 +(N4802I*02I*N48+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -N0Ie*e*N0I29 

4 -{NOIA9*NOI29-NOIA10*NOI210) 

5 -(NOIB9*NOI29-NOIBll*NOI211) 

6 -(N0IN2 *NN*NOI2 9-N0IN2 *NN*N0I210) 

RETURN 

END 


N0l210(t), { N0+, from N+ + 02,in vibrational level 10 ) 

FUNCTION FQ210(t,e,N2I,O2I,NI,OI,NOI20,NOI21,NOI22,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL N0I14,N0I15,N0I16,N0I17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN48,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N4 8P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N21,02NI,02N4 8,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to, e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST. 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 
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7 N0IA4,N0IA5,N0IA6,N0IA7,K0IA8,N0IA9,NOIAIO,NOIAll,NOIA12, 

8 NOIB2,NOIB3,NOIB4,NOIB5,NOIB6,NOIB7,NOIB8,NOIB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,NOIB16 


* 


COMMOK /BLKl/NN,02,O,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2102,N210,N2IN4 s,02IN2d,N4s02I,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,NOIA2,N0IA3,N0IN2,N0IP2d,N0IP4 S,0102,0IN2, 

3 0N21,02NI,02N4 8,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,M2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0iB7,NOIBS,N0IB9,NOIBIO,NOIBll, 

9 N0IA13,N0IA14,N0IA1S,N0IA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ210 - 

1 .012*NIP02*02*NI 

2 +(N4s02I*02I*N4s+N2021*NN*02I+OIN2*NN*OI)*0.0 

3 -NOIe*e*NOI210 

4 •-(NOIA10*NOI210-NOIA11*NOI211) 

5 -(NOIB10*NOI210-NOIB12*NOI212) 

6 -(NOIN2*NN*NOI210-NOIN2*NN*NOI211) 

RETURN 

END 


.1 


N0I211(t), ( N0+, from N+ + 02,in vibrational level 11 ) 

FUNCTION FQ211(t,e,N2I,02I,NI,0I,N0I211,N0I212,N0I213,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN48,02IN2d,N4s02I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,NOIB7,NOIBS,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02Ie,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN48,02IN2d,N4802I,N2de,NI02,NI0,N4sPNI,N2dPNI, 

2 N4 8P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2I0,0210,010,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 
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6 Vbeam,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,NOIA12, 

8 NOIB2,NOIB3,NOIB4,NOIB5,NOIB6,HOIB7,NOIB8,NOIB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ NOIB12,NOIB13,NOIB14,NOIB15,N0IB16 


FQ211 - 

1 .063*NIP02*02*NI 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -N0Ie*e*N0I211 

4 -(NOIAll*NOI211-NOIA12*NOI212) 

5 -(NOIBll*NOI211-NOIB13*NOI213) 

6 -(N0IN2 *NN*N0I211-N0IN2 *NN*N0I212) 

RETURN 

END 


NOI212(t), ( N0+, from N+ + 02,In vibrational level 12 ) 

FUNCTION FQ212(t,e,N2I,02I,NI,OI,NOI212,NOI213,NOI214,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOIlS,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL NOI212,NOI213,NOI214,NOI215,NOI216 

REAL NN,O2,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN48,02IN2d,N4802I,N2de,NI02,NIO,N4sPNZ,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP48,0102,0IN2, 

3 0N2I,02NI,02N48,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeaa,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,NOIB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,O,Tr,N2Ie,02Ie,Ole,NIe,NOIe, 

1 N2102,N210,N2IN48,02IN2d,N4 8021,N2de,NI02,NIO,N4 8PNI,N2dPNI, 

2 N48P0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 8,0102,6lN2, 

3 0N21,02NI,02N4 8,0N2d,02N2d,N2N2d,NIP02,N2021, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 VbeaD,tdo8e, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,NOIBS,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ212 - 

1 .071*NIP02*02*NI 

2 +(N4802I*02I*N48+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -NOIe*e*NOI212 





4 -(NOIA12*NOI212-NOIA13*NOI213) 

5 -(NOIB12*NOI212-NOIB14*NOI214) 

6 -(N0IN2 *NN*N0I212-N0IN2 *NN*N0I213) 
RETURN 

END 


c NOl2l3(t), ( N0+, from N+ + 02,in vibrational level 13 ) 

FUNCTION FQ213(t,e,N2I,02I,NI,OI,NOI213,NOI214,NOI215,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N48,N2d 

REAL NOI10,NOI11,NOI12,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL NOI112,NOI113,NOI114,NOI115,NOI116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214,NOI215,N0I216 

REAL NN,02,0,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N4SP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N2I,02NI,02N4s,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2IO,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBl1, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4s,02IN2d,N4s02I,N2de,MI02,NI0,N4sPNI,N2dPNI, 

2 N4sP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4s,0102,0IN2, 

3 0N2I,02NI,02N4s,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,e0,N2I0,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ213 - 

1 .012*NIP02*02*NI 

2 +(N4s02I*02I*N4s+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -NOIe*e*NOI213 

4 “(NOIA13*NOI213-NOIA14*NOI214) 

5 -(NOIB13*NOI213-NOIB15*NOI215) 

6 -(NOIN2*NN*NOI213-NOIN2*NN*NOI214) 

RETURN 

END 


c NOI214(t), ( N0+, from N+ + 02,in vibrational level 14 ) 

FUNCTION FQ214(t,e,N2I,02I,NI,OI,NOI214,NOI215,NOI216,N4s,N2d) 

REAL t,e,N2I,02I,NI,0I,N0I,N4s,N2d 
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REAL NOI10,NOIll,NO112,NOI13 

REAL NOI14,NOI15,NOI16,NOI17 

REAL NOI18,NOI19,NOI110,NOI111 

REAL N0I112,N0I113,N0I114,N0I115,N0I116 

REAL NOI20,NOI21,NOI22,NOI23 

REAL NOI24,NOI25,NOI26,NOI27 

REAL NOI28,NOI29,NOI210,NOI211 

REAL N0I212,N0I213,N0I214«NOI215,N0I216 

REAL NN,02,O,Tr,N2Ie,02Ie,0Ie,NIe,N0Ie, 

1 N2102,N210,N2IN4 s,02IN2d,N4 s021,N2de,NI02,NIO,N4 sPNI,N2dPNI, 

2 N4SP0,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4 s,0102,0IN2, 

3 0N21,02NI,02N4S,0N2d,02N2d,N2N2d>NIP02> N202I, 

4 to,e 0 ,N 2 I 0 ,0210,010,NIO,NOIO,N2DO,N4SO,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbezun,td 08 e, 

7 N0IA4, N0IA5, N0IA6, N0IA7, N0IA8, N0IA9, NOIAIO, NOIAll, N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 

COMMON /BLKl/NN,02,0,Tr,N2le,02le,Ole,NIe,NOIe, 

1 N2I02,N2I0,N2IN4S,02IN2d,N4s02I,N2de,NI02,NIO,N4sPNI,N2dPNI, 

2 N4 SPO,N2dP0,NOIAl,N0IA2,N0IA3,N0IN2,N0IP2d,N0IP4S,0102,0IN2, 

3 0N2I,02NI,02N4S,0N2d,02N2d,N2N2d,NIP02,N202I, 

4 to,eO,N2I0,0210,OIO,NIO,NOIO,N2D0,N4S0,PI,ASIG,SINTHT,WAIST, 

5 QN2I,Q02I,Q0I,Qe, 

6 Vbeam,tdose, 

7 N0IA4,N0IA5,N0IA6,N0IA7,N0IA8,N0IA9,NOIAIO,NOIAll,N0IA12, 

8 N0IB2,N0IB3,N0IB4,N0IB5,N0IB6,N0IB7,N0IB8,N0IB9,NOIBIO,NOIBll, 

9 NOIA13,NOIA14,NOIA15,NOIA16, 

$ N0IB12,N0IB13,N0IB14,N0IB15,N0IB16 


FQ214- 

1 .002*NIP02*02*NI 

2 +(N4s02I*02I*N48+N202I*NN*02I+0IN2*NN*0I)*0.0 

3 -NOIe*e*NOI214 

4 -(NOIA14*NOI214-NOIA15*NOI215) 

5 -(NOIB14*NOI214-NOIB16*NOI216) 

6 -(NOIN2*NN*NOI214-NOIN2*NN*NOI215) 

RETURN 

END 


SUBROUTINE MAXMIN(X,IMAX,XMAX,IMIN,XMIN,NLIM) 

REAL X(l),XMAX,XMIN 

INTEGER IMAX,IMIN,NLIM 

IMAX-1 

IMIN-1 

DO 10 I-1,NLIM 
IF(X(IMAX).LT.X(I))IMAX-I 
IF(X(IMIN).GT.X(I))IMIN-I 
10 CONTINUE 

XMAX-X(IMAX) 

XMIN-X(IMIN) 

RETURN 

END 


SUBROUTINE MKASC(INBUF,L) 
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c 


5 

100 


OPENS AN ASCII FILE AND WRITES TO IT. L IS NUMBER OF POINTS. 

REAL*4 INBUF(l) 

CHARACTER*30 OUTFILE 

WRITE(*,*) ' ENTER OUTPUT FILE NAME • 

READ(*»'(A)0 OUTFILE 

OPEN{1,FILE-OUTFILE,STATUS- • NEW',FORM- • FORMATTED •) 

DO 5 I-1,L 

WRITE(1,100) INBUF(l) 
fonnat(E13.6) 

WRITE(*,*) 'ALL DATA WRITTEN TO FILE ' 

CLOSE(1) 

RETURN 

END 
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